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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 .US$RS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 162Q USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter or pencil, do not use ink) 

Program No. Date 

Program Name: 

1. Does the abstract adequately describe what the program Is and what Yes No. 

it does? 
Commen t 

2. Does the program do what the abstract says ? Yes No. 

Commen t 

3. Is the Description clear, understandable, and adequate? Yes No 

Commen t 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Commen t 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

C omment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code, 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVI TED 
TO PARTICIPATE IN THIS EVALUATION. 
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// 



© 



1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 



1. TITLE: The 141 Data Frocessing System - An Educational Computer for 

Instruction in Basic Programming. 
SUBJECT CLASSIFICATION: 13.0. 

2. AUTHOR; ORGANISATION: Kenneth P. Swallow, College of San Mateo and 

Richard E. Gentry, 

USERS GROUP MEMBERSHIP CODE: 5194 

3. DIRECT INQUIRIES TO: Kenneth P. Swallow, College of San Mateo, 

1700 West Hillsdale Blvd., San Mateo, California. 
Phone: 341 - 6l6l 

4. DESCRIPTION /PURPOSE: The 141 Data Processing System is an educa- 

tional tool for teaching basic computer concepts through a 
1401 type machine language and 1401 SPS. The 141 Simulator 
set of basic 1401 instructions includes: SW, CM, R, P, W, MCW, 
LCA, CS, B, C, A, S, H, and NCF. This set is sufficient to 
illustrate 3uch concepts as: (l) reading, punching, and print- 
ing, (2) looping for iterative processes, (3) sequence checking, 
(4) counted loops, (5) program switches, (6) load routines, 
(7) address modification, (8) subroutines and subroutine link- 
ages, etc. Basic utility routines are incorporated in the 141 
Simulator for easy debugging of 141 programs. 141 written sub- 
routines are provided for multiplication, division, zero sup- 
pression, and editing. 

i'he 141 3PS Assembler processes the 141 set of instructions and 
all 1401 pseudo operations including: DCW, DC, DS, D5A, ORG, 
EX, and END. 

7. SFECIFICATIOBS: 

a. STORAGE USED BY FROGRAM: 20,000 positions of storage. 

b. EQUIPMENT REQUIRED BY PROGRAM: 

Version A - Basic 1620 card system 
Version B - 1620, 1622, and 1443 

Version C - 1620, 1622, 1311, and indirect addressing 
Version D - 1620, 1622, 1443, 1311, and indirect 
addressing 

c. PROGRAMMING TYPE: 

Versions A and B - SPS - 1620/1710 
Versions C and D - SPS II-D 



III 
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DECK LABELING 
Card Number - Columns 77-80 



Version A - 3asic 1620 _13. 0. 015 

141 SPS Assembler 1001 - 1154 

141 Simulator 2001 - 2201 



Version B - 1620 with 1443 Printer _ 13. 0. 016 

141 SPS Assembler 3001 - 3151 

141 Simulator 4001 - 4195 



Version C - 1620 with 1311 Disk Storage 

Drive and Indirect Addressing -13. 0. 017 

141 SPS Assembler 5001 - 5109 

141 Simulator 6001 - 6144 



Version D - 1620 with 1443 Printer, 1311 
Disk Storage Drive, and 
Indirect Addressing -13. 0. 018 

141 SPS Assembler 7001 - 7108 

141 Simulator 8001 - 8139 



The program decks for Versions C and D are in 1620 Monitor 
System Output Format. They can be loaded onto the disk by 
means of the Disk Utility Program using an *DL0AD card with 
the program name, 141SPS or 141SIM, in columns 7-12 and 
02402CK in columns 44 - 50. 
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SECTION 1 



THE 141 DATA PROCESSING MACHINE 



INTRODUCTION 



A basic course in the use of computers for data processing can serve 
many purposes, such as: introducing the terminology that is peculiar 
to the industry, describing the elements that are common to all com- 
puter systems, enumerating the application areas in data processing, 
exploring the coding systems used with computers, and many others. 
But undoubtedly the greatest service that a basic computer course can 
give to the beginner is to provide a firm, even if limited, foundation 
in stored programming concepts. The degree to which a beginning pro- 
grammer grasps these basic principles will, to a large extent, deter- 
mine his success in future programming classes. 

The choice of the computer, the programming language, and the exercises 
to be used in the basic course is an important factor in the ease with 
which stored program concepts can be imparted to the student. The 141 
was designed solely as a vehicle for teaching these initial concepts. 

The 141 has sufficient instructions to allow the coding of a wide 
range of programming problems, but at the same time the instruction 
set is small enough that the primary effort of the student is directed 
toward the understanding of programming concepts and not the memori- 
zation of a large number of operational rules. The 141 set of four- 
teen instructions will permit field definition, data movement, input/ 
output operations, comparing, arithmetic operations, and branching. 
Simple exercises in 141 programming can illustrate such concepts as 
(l) reading, punching and printing, (2) looping for iterative pro- 
cesses, (3) sequence checking, (4) counted loops, (5) address modifi- 
cation, (6) program switches, (7) subroutine linkages, etc. 

If coding a program builds confidence in the new programmer, seeing 
his program run and seeing it printed as it is represented in core 
storage can only strengthen that confidence and cement further the 
whole concept of stored programming in his mind. Any 141 program can 
be run on an IBM 1401, 1460, or 1410 Data Processing System. It can 
also be run on an IBM 1620 Data Processing System through the use 
of a special simulator program. 

In addition to the concept of stored programming, a basic computer 
course should also include the introduction to a symbolic assembly 

- 3 - 



© 



© 



language. 141 programs can be written in IBM 1401 SPS (Symbolic Pro- 
gramming System) and assembled on a 1401.' If instead an IBM 1620 
is available, programs written for the 141 in SPS can be assembled 
on the 1620. 



DESCRIPTION 



The 141 Data Processing System is an abbreviated version of the IBM 
1401 Data Frocessing System. It is an internally stored program 
machine with the following features: 

1. Input: IBM Card Reader. 

2. Output: IBM Card Punch and 100 character per line Printer. 

3. Storage: 1000 positions of core storage with three digit 

numerical addresses. 

4. Instuction length and date length: Variable. 

Each position is designated by a three digit address in the range of 
000 through 999 and is capable of storing one character: a letter of 
the alphabet, a numeric digit or a special character such as . , / + 
or tj • A group of consecutive storage positions make up a f ield* 
Both data and instruction fields are variable in length so that no 
storage space need be wasted with meaningless blanks or zeros. 



DATA 



If a field is used for data it is referred to by the address of its 
low order, or right most, position. A special indicator called a 
word mark is placed in the high order, or left most, position to in- 
dicate the length of the field. The machine processes data fields 
from right to left starting at the addressed low order position and 
continuing until a character with a word mark is met. For example, 
a five-digit data field in storage locations 482 through 486 would 
have a word mark (indicated by an underline) in position 482 and 
would be addressed by 486. Notice that the low order position has 
the highest address. 




- 4 - 



a 



a 



INSTRUCTIONS 



When a field contains an instruction it is addressed by the high order, 
or left most, position of the field. This position contains the opera- 
tion code character and a word mark. In addition to the operation code 
an instruction may also contain one or two three-digit addresses and/ 
or a modifying character. An instruction may therefore contain one, 
four, five, seven, or eight characters. The machine reads instructions 
from left to right starting with the addressed high order position and 
continuing until it meets the word mark in the high order position 
of the next instruction. 



CHARACTER CODING 



Each position of storage is made up of eight magnetic cores, each of 
which can hold one "yes-or-no" bit. Four bits are needed to represent 
the digit portion of the Hollerith code. of the characters; two more 
bits are needed to represent the zone portion of the Hollerith code 
of the characters; another bit is used to indicate the presence or 
absence of a word mark; and the eighth bit is used for checking. 

The digit portion is coded in the Binary Code Decimal (BCD) system 
in which the four bits have the values of 8, 4, 2, and 1 respectively. 
The sum of the "yes" bits is equal to the value of the digit. Notice 
that the digit is represented by the 8 bit and the 2 bit rather than 
no bits at all. 



Digit 




BCD Code 




8 


4 2 1 


1 




X 


2 




X 


3 




X X 


4 




X 


5 




X X 


6 




X X 


7 




XXX 


8 


X 




9 


X 


X 





X 


X 
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In representing alphabetic and special characters the zone is rep- 
resented by the A and the B bits as follows: 



Zone 


B 


A 


12 


(A 


-I) 


X 


X 


11 


(J 


- R) 


X 







(s 


- z) 




X 


no 


(0 


- 9) 







The C bit is used for parity checking and is chosen so that the char- 
acter will always contain an odd number of "yes" bits. For example, 
the letter "F" which is represented by the 12 and 6 punches on an IBM 
card is represented in the seven-bit alphameric code as: 



Character 


Card Code 


Seven-bit Alphameric Code 






C B A 8 4 2 1 


F 


12-6 


XXX XX 



Table 1 gives the seven-bit alphameric code for each Hollerith char- 
acter used with the 141 Data Processing Machine. 



e 
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TABLE 1 



Character 


Card Code 


Seven-bit Alphameric Code 
*C B A 8 4 2 1 


Rlnnlr 


Blank 


X 












12-3-8 




X 


X X 


X 


X 




12-4 — 8 


X 


X 


XXX 






& 


12 


X 


X 


X 








22. 




X 








/ 


— 1 


X 




X 




X 


> 


0-3-8 


X 




X X 


X 


X 




12-1 




X 


X 




X 


g 


12 — 2 




X 


X 


X 




c 


12 - "3 


X 


X 


X 


X 


X 


n 


A* — H 




X 


X X 






£ 


A* J 


X 


X 


X X 




X 


p 


12-6 


X 


X 


X X 


X 




G 


12-7 




X 


X X 


X 


X 


H 


12-8 




X 


X X 






I 


12-9 


X 


X 


X X 




X 


j 


11-1 


X 


X 






X 


K 


11-2 


X 


X 




X 




L 


11-3 




X 




X 


X 


M 


11-4 


X 


X 


X 






N 


11-5 




X 


X 




X 





11 - 6 




X 


X 


X 




P 


11-7 


X 


X 


X 


X 


X 


Q 


11-8 


X 


X 


X 






R 


11-9 




X 


X 




X 


S 


0-2 


X 




X 


X 




T 


0-3 






X 


X 


X 


U 


0-4 


X 




X X 






V 


0-5 






X X 




X 


W 


0-6 






X x 


X 




X 


0-7 


X 




X X 


X 


X 


I 


0-8 


X 




X X 






z 


0-9 






X X 




X 





0. 


X 




X 


X 




1 


1 










X 


2 


2 








X 




3 


3 


X 






X 


X 


4 


4 






X 






5 


5 


X 




X 




X 


6 


6 


X 




X 


X 




7 


7 






X 


X 


X 


8 


8 






X 






9 

i ..... _,_ 


9 


X 




X 




X 



* Check bit to produce odd-parity. Table shows values for 

positions with no word mark. Reverse if word mark is present. 
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L41 INSTRUCTIONS 
(IN ALPHABETIC ORDER OF SPS MNEMONICS) 



Op-Code A-address B-address 

A aaa bbb 

Description The Add instruction causes the data in the A-field 
to be added algebraically to the data in the B-field. The 
A-field is not disturbed and the resulting sum is stored in 
the B-field. 

Word Marks The defining word mark of the B-field terminates the 
operation. If the A-field is shorter than the B-field, the 
A-field word mark will halt transmission of data from the 
A-field but any resulting carries will be added to the B-field 
until the B-field word mark is sensed. If a carry results 
beyond the B-field word mark, it is lost or if the A-field is 
longer, the high order positions of the A-field which exceed 
the limits imposed by the B-field word mark are lost. These 
both represent overflow conditions. 



Add (Single Address) __ £ 

Op-Code A-address 

A aaa 

Description The four position Add instruction causes the A-field 
to be added to itself with the sum replacing the original 
A-field. 

Word Marks The word mark is not affected. 



Branch 

Op-Code I-address 



Description The Branch instruction causes the program to branch 
to the instruction specified by the I-address. 
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Branch If Indicator On B 

Op-Code I-address d-character 

B iii d 

Description The Branch If Indicator On instruction is a condi- 
tional branch. The d-character specifies the indicator to be 
tested as a criterion for the branch. If the indicator is on, 
then the program branches to the instruction specified by the 
I-address. If the indicator is off, the next sequential in- 
struction is executed. The indicators to be tested and their 



d-character codings are: 

Indicator d-character 

Unequal compare (B f A) / 

Equal compare (B - A) S 

Low compare (B<;A) T 

High compare (B>-A) U 

Testing of an indicator does not affect its setting. 

Branch If Character Equal B 

Op-Code I-address B-address d-character 

B iii bbb d 



Description The Branch If Character Equal instruction causes 
the single character at the B-address to be compared to the 
d-character. If they are identical, the program branches to 
the instruction specified by the I-address. If they are 
different, the program proceeds to the next instruction in 
sequence. 

Word Marks Word marks at the B-address are ignored and thus do 
not affect the comparison. 



Compare C 
Op-Code A-address B-address 

C aaa bbb 

Description The Compare instruction causes the information in 
the B-field to be compared with an equal number of characters 
in the A-field. The bit configuration of each character of 
the two fields is compared and appropriate indicators are set 
as described below. 
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Word Marks The first word mark encountered terminates the op- 
eration. If the A-field is longer than the B-field, extra 
positions beyond the length of the B-field will not be com- 
pared. 

Indicators If the two fields are identical, character by char- 
acter, an Equal Compare results and the Equal Indicator is 
turned on. If the fields are not equal then an Unequal Com- 
pare results and the Unequal Indicator is turned on. In 
addition, the High Indicator is turned on if the B-field is 
greater than the A-field and the Low indicator if the A-field 
is greater than the B-field. If the B-field is longer than 
the A-field, the Unequal and High Indicators are turned on 
regardless of their contents. All indicators are reset only 
by another Compare instruction. 



Clear Storage . £S 

Op-Code A-address 

/ aaa 

Description The Clear btorage instruction causes the storage to 
be cleared to blanks beginning at the location specified by 
the A-address and continuing downward through the nearest 
hundreds position. 

Word Marks Both word marks and data are cleared by this instruction. 



Clear Storage and Branch CS 

Op-Code I-address B-address 

/ iii bbb 

Description The Clear Storage and Branch instruction causes 
the storage to be cleared (including word marks) to blanks 
beginning at the location specified by the B-address and con- 
tinuing downward through the nearest hundreds position in 
the same manner as the Clear Storage instruction. Upon com- 
pletion of the clearing operation the program branches to 
the instruction specified by the I-address. 



Clear Word Mark CW 

Op-Code A-address B-address 

JJor X aaa 

JJ or X aaa bbb 
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Description The Clear Word Mark instruction causes a word mark 
to be cleared from the location specified by the A-address. 
If a B-address is also used, word marks will be cleared from 
the locations specified by each address. If no word mark 
existed in either location prior to the instruction, there 
will be no change at that location. Data will not be disturbed. 



Halt 



Op-Code 



Description The Halt instruction causes the computer to stop. 
Depressing the start key will cause the program to proceed to 
the next instruction in sequence. 



Halt and Branch 



Op-Code I-address 



Description The Halt and Branch instruction causes the computer 
to stop. Depressing the start key will cause the computer 
to proceed to the instruction designated by the I-address. 



Load Characters to A Word Mark LCA 

Op-Code A-address B-address 

L aaa bbb 

Description The Load Characters to A Word Mark instruction causes 
the characters and word mark from the A-field to replace the 
B-field. The A-field remains undisturbed. 

Word Marks The A-field must contain a word mark to terminate 
the transmission of data. All word marks in the B-field are 
cleared and a word mark is placed in the B-field corresponding 
to that in the A-field. 

hove Characters to A or B Word Mark MCW 

Op-Code A-address B-address 

M aaa bbb 
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Description The Move Characters to A or B Word Mark instruction 
causes the field specified by the A-address (A-field) to be 
moved to corresponding positions of the B-field. The A-field 
remains undisturbed but the B-field is lost. 

Word Marks The first word mark encountered in either field 
stops the transmission of data. Existing word marks in 
either field are not disturbed. 



No Operation ; NOP 

Op-Code 
N 

Description The only purpose of the No Operation instruction is 
to cause the program to proceed to the next instruction in 
sequence. The instruction may have the format of any allow- 
able instruction, that is, it may have an A-address, an 
A-address and a B-address, etc. 



Punch a Card ; P 

Op-Code 

k 

Description The Punch a Card instruction causes information in 
storage locations 101 through 180 (PUNCH area) to be punched 
in columns 1 through 80 respectively of a Hollerith coded aard. 
The machine coding is converted to Hollerith coding prior to 
punching. The information stored in the PUNCH area is un- 
disturbed. This instruction punches only information from the 
PUNCH area of storage onto the card. 

Word Marks Word marks are not punched, are not affected by the 
Punch instruction and do not affect punching in any manner. 



Punch and Branch P 

Op-Code I-address 

_ iii 

Description The Punch and Branch instruction causes the computer 
to punch the contents of the PUNCH area (in the same manner as 
the Punch a Card instruction) then branch to the instruction 
specified by the I-address. 
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Read a Card 



R 



Op-Code 
1 

Description The Read a Card instruction causes the information 
in columns 1 through 80 of a Hollerith coded card to be read 
into storage positions 001 through 080 respectively. The 
Hollerith code from each column is converted to the appropriate 
computer coding as it is read into the computer. The Read a 
Card instruction always reads into positions 001 through 080 
(the READ area). 

Word Marks Word marks which exist in the READ area prior to ex- 
ecution of the instruction are not disturbed nor do they affect 
the reading of information. 



Read and Branch R 

Op-Code I-address 
I iii 

Description The Read and Branch instruction causes the computer 
to read one Hollerith coded card (in the same manner as the 
Read a Card instruction) then branch to the instruction speci- 
fied by the I-address. 



Subtract 

Op-Code A-address B-address 

S aaa bbb 



Description The Subtract instruction causes the data in the 
A-field to be subtracted algebraically from the data in the 
B-field. The A-field is not disturbed and the resulting 
difference is stored in the B-field. 

Word Marks Word marks control the subtract operation in the 
same manner as the Add instruction. 



Subtract (Single Address) 



Op-Code A-address 
S aaa 



Description The four position Subtract instruction causes the 
A-field to be subtracted from itself with zero replacing the 
original A-field. 

Word Marks The word mark is not affected. 



Set Word Mark SW 

Op-Code A-addres3 B-address 

>_ aaa 

*. aaa bbb 

Description The Set Word Mark instruction causes a word mark to 
be set at the location specified by the A-address. If a 
B-address is also used, word marks will be set at the locations 
specified by each address. Existing word marks are undis- 
turbed. Data at the location (or locations) will not be 
disturbed. 

Write a Line ; W 

Op-Code 



Description The Write a Line instruction cause's the information 
in storage locations 201 through 300 (the WRITE area) to be 
printed on the printer (or typewriter). The information will 
remain in the WRITE area of storage after execution of the in- 
struction. This instruction always prints information from 
all 100 positions of the WRITE area. 

Word Marks Word marks are not printed, are not affected by the 
instruction and do not affect printing in any manner. 



Write and Branch W 

Op-Code I-address 
2 iii 

Description The Write and Branch instruction causes the computer 
to print the contents of the PRINT area (in the manner as the 
Write a Line instruction) then branch to the instruction 
specified by the I-address , 
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SECTION 2 



141 SYMBOLIC PROGRAMMING SYSTEM 



The Symbolic Programming System, SPS, has been developed to facilitate 
logical, efficient programming with a minimum of actual coding effort. 
It almost completely relieves the programmer of the task of assigning 
actual storage location to the instructions and data of the program 
and allows him to refer to them by easy-to-remember names of his choice. 



INSTRUCTIONS 



Instructions written in SPS contain a label, an operation code, an 
A-operand, a B-operand, and a d-character. Any of the parts except 
the operation code may be left blank. 

The label is the symbolic representation of the location in memory in 
which the instruction will be stored. It may have from one to six 
alphameric characters, the first of which must be alphameric and must 
be placed in column 8 of the coding sheet. The label may be left 
blank if no reference is made to the instruction elsewhere in the 
program. 

The operation code is mnemonic and consists of from one to three char- 
acters starting in column 14. 

If the instruction requires an A-operand it is written in columns 17 
through 26. If no A-operand is used those columns may be left blank. 
The address of an operand may be expressed aa a symbol, an actual 
location, or an asterisk. If it is written symbolically, it takes 
the same form as a label. If it is written as an actual location, it 
must be a four-digit number with leading zeros where necessary (al- 
though four digits are written on the coding sheet, only three char- 
acters will be used in memory). If an asterisk is used its equivalent 
address is that of the right most, or low order, position in the in- 
struction defined by the statement. 

The address of an operand may be adjusted by placing the number of 
characters of adjustment in columns 24 through 26 and the sign of the 
adjustment in colum 23. Leading zeros may be omitted but the units 
digit of the adjustment must be in column 26. 
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The indexing character (column 27) is not used with the 141. 

If the instruction requires a B-operand, its address is written in 
columns 28 through 37 in the same form as the A-operand. 

When an instruction requires a d-character, the actual machine code 
is placed in column 39. 



COMMENTS 



Short comments may be placed in columns 40 through 55 of the instruc- 
tion cards. Longer comments may be placed on "Comment Cards". These 
cards are identified by an asterisk in column 8. The remainder of 
the card, columns 9 through 55 , is available for the comment. 



A sample coding sheet is shown on the next page. 



- 16 - 



L [ 



It 
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[ r 
4-f-- 



L L 



! i 1 



I- L 



i- (- u 

t i- L 



£ o 



H — h 



i I 

I I 

L L 

j- I 



r r 
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r 1- 
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DECLARATIVES 



Define Constant With Word Mark DCW 

The symbolic operation code DCW causes a constant to be loaded 
into storage and sets a word mark in the high-order (left most) 
position of the constant field. The number of characters in 
the constant field is specified in the Count portion of the 
coding sheet, (columns 6 and 7). The symbolic label by which 
the constant is referenced is placed in the Label area (columns 
8 through 13). The code DCW is placed in columns 14 through 16. 
Column 17 must contain an asterisk to indicate to the assembler 
that it may choose the location of the constant field or else 
columns 17 through 20 must contain the desired storage location 
of the low order position (right most) of the constant field. 
The constant itself begins in column 24 and may extend through 
column 55 giving a «airiimyi of 32 characters. If the constant 
is to be a signed number, the sign may be placed in column 23. 



Define Constant ; DC 

The symbolic operation code DC causes a constant to be loaded 
into storage without a word mark. Otherwise, it is identical 
to the DCW. 



Define Symbol PS 

The operation code DS causes the processor to assign equivalent 
addresses to labels or to assign storage for work areas. The 
DS differs from DC and DCW statements in that neither data nor 
word marks are loaded during assembly. The number of positions 
to be reserved in storage is specified in the Count portion of 
the coding sheet. If it is desired to refer symbolically to 
the low order position of the field reserved, then a label must 
be placed in the Label field. If the assembler is to assign 
the address, an asterisk must be placed in column 17 of the 
coding sheet. If it is desired to equate the label to an actual 
address, then that address is written beginning in column 17 
and the Count field of the coding sheet is left blank. It is 
not possible to character adjust DS statements. 



Define Symbolic Address PSA 

The DSA statement causes a three character machine language 
address which the assembler has assigned to a label to be stored 
as a constant when the program is loaded. 
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The number of characters need not be specified in the Count 
portion of the coding sheet since it is automatically assigned 
three storage positions by the processor. If it is desired to 
refer to the address of the address field, a symbol may be 
written in the Label portion of the coding sheet. Column 17 
may contain an asterisk thus allowing the assembler to assign 
the storage positions or else columns 17 through 20 may contain 
the desired storage locations of the low order position for the 
address field. The symbol whose equivalent address is to be 
the address field is written beginning in column 28 of the 
B-operand. 



CONTROL STATEMENTS 



Origin ORG 

The ORG statement causes the assembler to assign addresses to 
the following instructions beginning at the location specified 
by the statement. The symbolic operation code ORG must be 
placed in the operation field and the absolute address at which 
storage assignment is to be made must be written in columns 17 
through 20 of the coding sheet. 



Execute EX 

The EX statement causes the computer to suspend loading of the 
object program and execute part of the program prior to con- 
tinuing the loading process. The symbolic operation code EX 
must be placed in the operation field and the symbolic or actual 
address of the first instruction to be executed when the loading 
process is suspended must be placed in the A-operand portion of 
the coding sheet. The card containing the Execute statement 
must be inserted at the point in the source program where sus- 
pension of loading is, desired in order to execute the preceeding 
portion. 



End END 

The END statement is an indication to the assembler that the 
last card of the source program has been processed. The symbolic 
operation code END must be placed in the operation field and 
the address of the first instruction, either actual or symbolic, 
mu3t be placed in the A-operand portion of the coding sheet. 
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SECTION 3 



EXERCISES 



Exercise 1 

Write a program that will reproduce a card, that is, will read 
a card and punch a card identical to the one read. 

Exercise 2 

Write a program that will read a card and punch a card with the 
information from columns 1 - 40 of the card read in columns 41 -80 
of the card punched and the information from columns 41 - 80 of 
the card read in columns 1 - 40 of the card punched. 

Exercise 3 

Write a program that will reproduce an entire deck of cards. 
Exercise 4 

Write a program that will read one card and will punch copy after 
copy of it until the machine is stopped by the operator. 

Exercise 5 

Write a program that will print a directory of telephone ex- 
tensions from a deck of personnel cards. The cards and directory 
forms are as follows: 

Card Columns Field Print Positions 



1 - 


18 


Name 


1 


19 




First Initial 


20 


20 




Second Initial 


22 


21 - 


60 


Not used in this program 




61 - 


64 


Telephone Extension 


28 


65 - 


80 


Not used in this program 





Exercise 6 

Write a program that will read cards containing numeric fields 
A, B, and C and will punch corresponding cards that contain 
fields A, B, C, and D, where D = A + B - C. The card columns 
are shown on the next page. 
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Field Card Columns Card 



A 1-6 Input and Output 

B 7-11 Input and Output 

C 12-14 Input and Output 

D 75-80 Output Only 



Assume that no overflows will occur. 
Exercise 7 

Write a program that will check the sequence of employee numbers 
found in columns 75 - 80 of. a deck of cards. The program should 
stop the machine if it finds any employee number that is not 
larger than the one in the previous card. 

Exercise 8 

Write a program that will punch consecutive numbers 001 through 

015 in columns 78 - 80 of the first 15 blank cards in the punch hopper 

and stop automatically before punching a sixteenth card. 

Exercise 9 

Write a program that will calculate and punch D, where D = 
A + B - C (all values are positive). Provide for decimal align- 
ment, rounding (half-adjustment), and over flow. The card 
columns and decimal form of each field is as follows: 



Input Card 


A 


Col. 5 


- 8 


xxx.x 




B 


9 


- 12 


XX .XX 




C 


13 


- 14 


XX. 


Output Card 


D 


7 


- 10 


XXXX. 



Exercise 10 

Write a program that will up-date a customer's charge account 
after a new purchase has been recorded. A new balance card is 
to be punched and a listing of each customer 1 s name, new balance, 
and limit is to be printed. If the new balance exceeds the 
customer's limit the words OVER LIMIT are also to be printed on 
his entry. The card columns and print positions are as follows: 



Filed 


Input 


Card 


Output 


Card 


Listing 


Name 


1 - 


20 


1 - 


20 


11 


- 30 


Balance 


21 - 


30 


21 - 


30 


35 


- 44 


Charge 


31 - 


40 










Limit 


71 - 


80 


71 - 


80 


49 


- 58 


'OVER LIMIT' 










63 


- 72 



The Limit field is to be punched with leading zeros. 
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Exercise 6 



Exercise 7 



Start 



Set Word 
Mark 




Move k, B, 

& C to 
Punch Area 



Calculate D 
and Move to 
Punch Area 




Start 

i 



Set Word 
Mark 




Store New 
Emp. # 
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Exercise 8 



Exercise 9 



Start ^) 



Start 




Add One 

to 
Seq. # 



0' 



Set Word 
Mark 



Read a 
Card 



Calculate 
D 



Half Adj. 
D and Move 
to Punch Area 



Punch a 
Card 
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Exercise 10 



Start 



Set Word 
Mark 



Read a 
Card 



-0 



Calculate 
New Balance 



Move Data 
to 

Punch Area 



Move Data 
to 

Print Area 








Clear Msg. 
from 
Print Area 
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SOLUTIONS TO EXERCISES 



EXERCISE 1 



PG LIN LABEL OP A-OPERAND B-OPERAND COMMENTS 

01 010 START SW 0001 DEFINE 80 POS FL 

01 020 R READ ONE CARD 

01 030 MCW 0080 0180 MOVE TO PCH 

01 040 P PUNCH ONE CARD 

01 050 H HALT 

01 060 NOP PROVIDE WM 

01 070 END START 



EXERCISE 2 



02 010 START SW 0001 DEFINE FIRST FLD 

02 020 SW 0041 DEFINE SECOND FL 

02 030 R READ ONE CARD 

02 040 MCW 0040 0180 MOVE TO PCH AREA 

02 050 MCW 0080 0140 MOVE TO PCH AREA 

02 060 P PUNCH A CARD 

02 070 H HALT 

02 080 NOP PROVIDE WM 

02 090 END START 



EXERCISE 3 



03 010 START SW 0001 DEFINE FIELD 

03 020 READ R READ A CARD 

03 030 MCW 0080 0180 MOVE TO PCH AREA 

03 040 P PUNCH A CARD 

03 050 B READ BRANCH TO READ 

03 060 END START 
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EXERCISE 


k 






PG 


LIN 


LABEL 


OP 


A-OPERAND 


B-OPERAND 


COMMENTS 


UH 


010 


START 


sw 


0001 






OFF INF F 1 Fl D 

ULT 1 I'll. 1 1 U. L. U 


Ok 


020 




R 








READ CARD 


UH 


n?n 

U.5U 




new 


0080 




01 80 


Mn\/F Tf) PTH ARFA 


nil 

UH 


nkn 


rUlNUn 


D 
r 








PUNCH 


nil 

UH 


ncn 







PUNCH 






RFPFAT PUNCH 


nli 

UH 


nAn 




CINU 


START 
















EXERCISE 


5 






n<; 


01 


START 


SW 


0001 






DEFINE FIELDS 


05 


020 




SW 


0019 








05 


030 




SW 


0020 








05 


OhO 




SW 


0061 








05 


050 


READ 


R 








READ CARD 


05 


060 




MCW 


0018 




0218 


ASSEMBLE LINE 


05 


U/U 




MCW 


0019 




n99n 




05 


080 




MCW 


0020 




0222 




05 


090 




MCW 


OOSk 




no 2 1 




05 


1 00 




W 








PR 1 NT A 1 1 NF 


05 


1 1 




B 


READ 






DCTIIPW TO RFAn 


05 


1 20 




END 


START 
















EXERCISE 


6 






nA 

UD 


n 1 n 


CTADT 
1 Mr\ 1 


SW 


0001 






DEFINE FIELDS 


06 


020 




SW 


0007 








06 


030 




SW 


0012 








06 


OhO 


READ 


R 






0106 


READ CARD 


06 


050 




MCW 


0006 




MOVE INPUT TO 


06 


060 




MCW 


0011 




01 1 1 


PUNCH AREA 


06 


070 




MCW 


OOIh 




01 1h 




06 


080 




S 


001h 




0006 


A-C 


06 


090 




A 


001 1 




0006 


A+B-C 


06 


100 




MCW 


0006 




0180 


MOVE D TO PCH AR 


06 


110 




P 








PUNCH CARD 


06 


120 




B 


READ 






LOOP 


06 


130 




END 


START 













EXERCISE 7 



PG 


LIN 


LABEL 


OP 


A-OPERAND 


B-OPERAND 


COMMENTS 


07 


010 


BEGIN 


SW 


0075 




DEFINE EMPNO FLD 


07 


020 


READ 


R 






READ CARD 


07 


030 




C 


STORE 


0080 


COMP WITH LST CD 


07 


OhO 




B 


LOOP 




ULOOP IF OK 


07 


050 




H 






HALT 


07 


060 


LOOP 


MCW 


0080 


STORE 




07 


070 




B 


READ 






07 


080 


6 STORE 


DCW 


* 






07 


090 




END 


BEGIN 







EXERCISE 8 



08 010 
08 020 
08 030 
08 OhO 
08 050 
08 060 
08 070 
08 080 
08 090 
08 100 
08 110 



FIRST 
PUNCH 



HALT 

LIMIT 

ONE 



SW 
P 



0178 



0180 
HALT 
ONE 
PUNCH 



C 
B 
A 
B 
H 

DCW * 
DCW * 
DCW 0180 
END FIRST 



LIMIT 
0180 



015 
1 

001 



DEFINE FLD 
PUNCH 

TEST FOR LIMIT 

STEP SEQ NO 

LOOP 

HALT 



EXERCISE 9 



09 010 
09 020 
09 030 
09 OhO 
09 050 
09 060 
09 070 
09 080 
09 090 

09 100 
09 110 

09 120 
09 130 
09 1hO 
09 150 
09 160 



START 



READ 



AC CUM 
ZEROS 
FIVE 



SW 


0005 




DEFINE FIELDS 


SW 


0009 






SW 


0013 






R 






READ CARD 


A 


0008 


AC CUM - 


1 A 


A 


0012 


AC CUM 


A+B 


S 


OOIh 


ACCUM - 


2 A+B-C 


A 


FIVE 


ACCUM - 


1 HALF ADJUST 


MCW 


AC CUM 


- 2 0110 


MOVE TO D 


P 

MCW 


ZEROS 


ACCUM 


CLEAR ACCUM 


B 


READ 






DCW 


* 


000000 




DCW 


* 


000000 




DCW 


* 


5 




END 


START 
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EXERCISE 10 



PG LIN LABEL OP A-OPERAND B -OPERAND 



10 010 START 
10 020 
10 030 
10 040 

10 050 READ 

10 060 

10 070 

10 080 

10 090 

10 100 

10 110 

10 120 

10 130 

10 140 

10 150 PUNCH 
10 160 
10 170 
10 180 

10 190 OVER 
10 200 

10 210 10 BLANK 
10 220 10 MSG 
10 230 



0001 
0021 
0031 
0071 



SW 
SW 
SW 
SW 
R 

A 0040 
MCW 0020 
MCW 0030 
MCW 0080 
MCW 0020 
MCW 0030 
MCW 0080 
C 0030 
B OVER 
P 
W 

MCW BLANK 
B READ 
MCW MSG 
B PUNCH 
DCW * 
OCW * 
END START 



0030 
0120 
0130 
0180 
0230 
0244 
0258 
0080 



0272 
0272 



COMMENTS 
DEFINE FIELDS 



READ CARD 
CALC NEW BAL 
MOVE TO PCH 



MOVE TO PRINT 
TEST FOR HI BAL 

r 

PUNCH 
WRITE 
CLEAR MSG 



INSERT MSG 



OVER LIMIT 
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SECTION 4 



SUBROUTINES 



The following subroutines written in 141 language were contributed by 
Mr. Wilson T. Price of Merritt College, Oakland, California. In pre- 
paring these routines, simplicity of arithmetic method, compat ability 
with the 1401, and compatability with each other were primary con- 
siderations. Speed of operation was deemed the least important feature 
since students write 141 programs as learming experience and not for 
production runs. 



THE MULTIPLY SUBROUTINE 



TITLE: Multiply 
MNEMONIC: MULT 

PURPOSE: To provide the capability of multiplying a number containing 
up to 8 digits by a second number containing up to 8 digits to 
form a product up to 16 digits in length. 

STORAGE REPUIREMKNTS: 

Multiplicand (MULTD) 081 through 089 

Multiplier (MULTR) 091 through 099 

Product (PROD) 181 through 196 

Additional work areas 197 through 200 

Program 100 additional locations 

as assigned by assembler 

LINKAGE: Move the multiplicand of m digits to MULTD. This field will 
then occupy storage positions (090 - m) through 089. Move the 
multiplier of n digits to MULTR. This field will then occupy 
storage positions (ICO - n) through 099. Move the return Branch 
instruction to MULTX + 3. Branch to MULT. The linkage is illus- 
trated below: 

MCW (Multiplicand) MULTD 
MCW (Multiplier) MULTR 
MCW RETURN - 1 MULTX +3 

B MULT 
B RETURN 

RETURN (next instruction in program) 
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After completion of the operation, the product of in + n digits 
will be in PROD. Both the multiplicand and multiplier remain in 
their respective areas. 

WORD MARKS: Word marks are placed in locations 081, 091, and 181 with 
DCW's during assembly and care must be exercised that they are not 
cleared during execution of the main program. 

CLEARING: Initially all three work areas will be zero, further clear- 
ing is left to the programmer. Blanking or zeroing of the mul- 
tiplicand and multiplier areas will only be necessary if the new 
values contain fewer digits than the previous Quantities which 
. utilized these areas. Zeroing of the product accumulator will 
always be necessary unless it is desired to sum products. 

SCALING: Decimal alignment is the responsibility of the programmer. 

The number of decimal places in the product is equal to the sum 
of the number of decimal places in the multiplicand and the mul- 
tiplier. 
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MULTIPLY SUBROUTINE 



PG 


LIN 




LABEL 


OP 


A-0PERAND B-0PERAND 




M1 


010 




MULT 


MCW Ml 6 


M3 


+ 


3 




Ml 


020 






Mrw 

rlvW 


Ml 7 


M6 


+ 


6 




M1 


030 




M3 


MCW 


MULTR 


- 7 M19 


- 


1 




Ml 


OkO 




M4 


C 


M19 


- 1 M18 




1 




Ml 


050 






B 


M9 








U 


M1 


060 




M6 


A 


MULTD 


PROD 




7 




M1 


070 






S 


M18 


M19 








Ml 


080 






B 


Mk 










Ml 


090 




M9 


SW 


M3 


+ 1 M6 


+ 


k 




Ml 


100 






A 


M18 


- 1 M3 


+ 


3 




Ml 


110 






A 


M18 


- 1 M6 


+ 


6 




Ml 


120 






CW 


M3 


+ 1 M6 


+ 


if 




Ml 


130 






C 


M3 


+ 3 M16 




2 




Ml 


]k0 






B 


M3 








/ 


Ml 


150 




MULTX 


B 


0000 










M1 


160 


03 


M16 


DCW 


* 


092 








Ml 


170 


02 


M17 


DCW 


* 


89 








M1 


180 


02 


M18 


DCW 


0198 


10 








Ml 


190 


02 


M19 


DCW 


0200 


00 








Ml 


200 


09 


MULT0 


DCW 


0089 


000000000 








Ml 


210 


09 


MULTR 


DCW 


0099 


000000000 








M1 


220 


16 


PROD 


DCW 0196 


0000000000000000 
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THE DIVIDE SUBROUTINE 



TITLE: Divide 
MNEMONIC: DIV 

PURPOSE: To provide the capability of dividing a number containing up 
to 16 digits by a second number containing up to 8 digits to form 
a quotient of up to 8 digits. 

STORAGE REQUIREMENTS: 

Dividend (DIVD) 181 through 196 

Divisor (DIVR) 081 through 089 

Quotient (QUOT) 091 through 099 

Program 154 additional locations 

as assigned by assembler 

LINKAGE: Move the dividend of m digits to DIVD. This field will then 
occupy storage positions (197 - m) through 196. Move the divisor 
of n digits to DIVR. This field will then occupy storage positions 
(090 - n) through 089. Move the return Branch instruction to 
DIVX + 3. Branch to DIV. 

MCW (Dividend) DIVD 
MCW (Divisor) DIVR 
MCW RETURN - 1 DIVX + 3 
B DIV 
B RETURN 
RETURN (next instruction in program) 

After completion of the operation, the quotient will be located at 
QUOT and the remainder at DIVD. The divisor remains in DIVR but 
the dividend is lost. 

WORD MARKS: Word marks are placed in locations 081, 091, and 181 with 
DCW's during assembly and care must be taken that they are not 
cleared during execution of the main program. 

CLEARING: Initially all three work areas will contain zeroes, further 
clearing is left to the programmer. Zeroing of the dividend and 
divisor areas will be necessary if new values contain fewer digits 
then previous quantities which utilized these areas. The high order 
position (081) of the divisor must contain zero . Zeroing of the 
quotient accumulator will always be necessary unless it is desired 
to sum quotients. 

SCALING: Decimal alignment is the responsibilty of the programmer. The 
rules to follow are: listed on the next page. 
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1. Multiply dividend and divisor by the appropriate power of 
ten to clear decimals from divisor. 

2. Muliply dividend and expected quotient by the same power 
of ten to obtain greater accuracy. 

3. Upper eight digits (181 through 188) of dividend must be 
less than divisor. 

The following examples illustrate scaling in the divide subroutine: 



-is. „ m 

1.2 12 



1. Before division 
After division 

2. Before division 
After division 

3. Before division 
After division 



Number 



Location of low 
order position 



380 DIVD 

12 DIVR 

31 QUOT 

8 (remainder) DIVD 

380^0 DIVD 

12 DIVR 

31^6 QUOT 

A 8 (remainder) DIVD 

380^00 DIVD 

12 DIVR 

33*66 QUOT 

A 08 (remainder) DIVD 



- 35 - 



© 



DIVIDE SUBROUTINE 



PG 


LIN 




LABEL 


OP 


A-OPE 


Dl 


010 




Dl V 


MCW 


02k 


Dl 


020 






MCW 


D25 


Dl 


030 






MCW 


D2*t 


Dl 


OkO 






c 


DIVR 


Dl 


050 






B 


D7 


D1 


060 






H 


DIVX 


U 1 


070 
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THE SUPPRESS ZERO SUBROUTINE 



TITLE: Suppress Zero 
MNEMONIC: SUPZR 

PURPOSE: Given a numeric field of 9 digits or fewer, to suppress leading 
zeroes (that is change high order zeroes to blanks). 

STORAGE REQUIREMENTS : 

Work area (SZARG) 091 through 099 

Program 82 additional locations 

as assigned by assembler 

LINKAGE: Hove the numeric field of m digits to SZARG. The field will 
then occupy storage positions (100 - m) through 099. For example, 
a three digit field would occupy positions 097 through 099. Move 
the return Branch instruction to SUPZRX + 3. Branch to SUPZR. 

MCW (Argument) SZARG 
MCW RETURN - 1 SUPZRX + 3 
B SUPZR 
B RETURN 

RETURN (next instruction in program) 

After completion of the operation, the field with leading zeroes 
suppressed will remain in its original location. If the entire 
field is zero, then one zero will remain. 

WORD MARKS: A word mark is set at location 091 during processing by the 
assembler. If cleared during execution of the main program it 
should be reset. 

CLEARING: Initially the work area will be zero, further clearing is 

left to the programmer. Zeroing will always be necessary if the 
new field contains fewer digits than the previous quantity which 
utilized this area. 
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THE EDIT SUBROUTINE 



TITLE: Edit 
MNEMONIC: EDIT 

PURPOSE: To provide the capability to edit a field of up to 8 digits 
consisting of dollars and cents. Leading zeroes are suppressed 
and a decimal point, a comma (if needed) and a floating dollar 
sign are placed in appropriate positions of the field. 

STORAGE REQUIREMENTS: 

Input field (EDIN) 081 through 089 

Output field (EDOUT) 181 through 191 

Program 127 additional locations 

as assigned by assembler 

LINKAGE: Move the field of m digits to be edited to EDIN. This field 

will then occupy positions (090 - m) through 089. Move the return 
Branch instruction to EDITX + 3. Branch to EDIT. 

MCW (Argument) EDIN 
MCW RETURN - 1 EDITX + 3 
B EDIT 
B RETURN 

RETURN (next instruction in program) 

After completion of the operation, the edited field will be located 
at EDOUT. The original field remains in EDIN. 

WROD MARKS: Word marks are placed in locations 081 and 191 with DCW's 
during assembly and care must be taken that they are not cleared 
during execution of the main program. 

CLEARING: Initially both work areas will be zero, further clearing is 
left up to the programmer. Zeroing of the input area (EDIN) will 
be necessary if the new argument contains fewer digits than pre- 
vious quantities which utilized this area. The output area (EDOUT) 
is self clearing. 

SCALING: Quantities which are edited must consist of a dollar and cent 
amount. The following examples illustrate scaling in the edit 
subroutine: 

Input field Output field 

12345678 $123,456.78 

12345 1123.45 

123 #1.23 

12 ¥0.12 
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SECTION 5 



OPERATING PROCEDURES 



Four versions of the 141 SPS Assembler and the 141 Simulator are 
available in order to permit maximum utilization of the computer 
hardware. These are identified as: 

Non-Monitor Versions 

Version A - Basic 1620 

Version B - 1620 with 1443 Printer 

Monitor Versions 

Version C - 1620 with 1311 Disk Storage Drive and indirect 
addressing 

Version D - 1620 with 1443 Printer, 1311 Disk Storage Drive, 
and indirect addressing 

Letters preceeding each procedure statement below identify the versions 
to which they apply. 



141 SPS ASSEMBLER 



Prepare Console 
Version 

AC l) Set left typewriter margin at 10 and right margin 

at 95. 

A B C D 2) Set Parity Switch and I/O Switch to STOP. 
A B C D 3) Set O'Flow Switch to PROGRAM. 

CD 4) Set Disk Switch to PROGRAM. 
A B C D 5) Set Program Switches 1 and 2 according to the 
options listed below. 
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Assemble SPS Programs 



Version 

A B 1) Place the 141 SPS Assembler deck in the reader 

hopper in the 9-edge face-down position. 
CD 2) Place the following Monitor cards in the reader 

hopper: "GOLD START" , 4= * JOB, and # * XEQ 141SPS. 
A B C D 3) Place SPS source program decks in the reader hopper. 

Any number of programs may be stacked for assembly. 

The last card of each deck must be an END statement. 
A B C D 4) With the machine in IlANUivL mode, press the LOAD key 

on the 1622 Reader-Punch unit. 



Program Switch Options 
Version 

A B C D 1) Switch 1 and 2 off - Object deck will be punched 
and program will be listed. 

A B C D 2) Switch 1 off and Switch 2 on - Object deck will be 
punched but program listing will be suppressed ex- 
cept for incorrect statements. A program listing 
can be prepared from the object program cards on an 
IBM 407 Accounting Machine. This option will 
greatly reduce assembly time for versions A and C. 

A B C D 3) Switch 1 on and Switch 2 off - Object deck will be 
suppressed and program will be listed on the con- 
sole typewriter (or printer). 

A B C D 4) Switch 1 and 2 on - Object deck and program listing 
will be suppressed. This combination can be used 
as an edit run. Programs from an entire class can 
quickly be scanned for errors with on]y incorrect 
statements being listed. The particular op-code or 
address that is erroneous will appear as the sym- 
bol =. For easy recognition, be sure that the 
source cards are numbered in columns 1 through 5 
and that the IDENTIFICATION field, columns 76 
through 80, is punched. 



Long Programs 
Version 

A B 1) An SPS assembly is a two pass operation but the 141 

SPS assembler only requires that the cards be fed 
through once if the number of cards in the source 
program does not exceed 100. This reduces the 
amount of card handling and permits the stacking of 
of programs. If the number of cards in a source 
program is greater than 100, images of the first 
100 cards are held in storage and copies of the re- 
maining cards are punched for a second pass. These 
cards are removed from the PUNCH stacker and placed 

- 42 - 



© 



in the READ hopper at the end of PASS I. Only 
those statements in excess of 100 need be pro- 
cessed twice. 

CD 2) Images of the source cards are stored on the disk 
and therefore the length of the program does not 
effect the operating procedures. 



141 SIMULATOR 



Prepare Console 



Version 



A 

A B 

A B 

A B 



1) Set left margin at 10 and right margin at 95. 

2) Set Parity Switch to STOP. 

3) Set O'Flow Switch to PROGRAM. 

4) Set Disk Switch to PROGRAM. 

5) Set Program Switches 1,2,3, and 4 according to the 
options listed at the end of this section. 



Load Simualtor 



Version 

A B 



C D 



A B C D 



1) Place 141 Simulator deck in the reader hopper in 
the 9— edge face-down position. 

2) Place the following Monitor cards in the reader 
hopper: "COLD START" , * * JOB, and * * XEQ 141SIM 

3) With the machine in MANUAL mode, press the LOAD 
key on the 1622 Reader-Punch unit. When the Sim- 
ulator is loaded the typewriter will automatically 
begin typing a list of the functions that the sim- 
ulator will perform and the request words that will 
initiate these functions. 



Functions Performed 



Request by Typing 



Load Program From Card Reader 
Clear 141 Storage 
Alter Storage From Typewriter 
Dump Contents of 141 Storage 
Begin Execution of Program 
Return to 1620 Monitor 



LOAD 

CLEAR 

ALTER 

DUMP 

EXECUTE 

EXIT (C & D only) 
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Select the Desired Function 

Each function, except EXIT, is available in all versions. 

a) The typewriter will type the words REQUESTED FUNCTION IS and 
then stop. 

b) The operator then types the word LOAD, CLEM, ALTER, DUMP, 
EXECUTE or EXIT and presses the RELEASE and START keys on the 
console or the RS key on the typewriter. 

c) If a function runs to completion the simulator will automatic- 
ally request the next function. If the function is inter- 
rupted by turning on Program Switch 1, the operator may re- 
turn to the request statement by pressing, in order, the 
RESET, INSERT, RELEASE, and STnRT keys on the console. 

The LOAD Function 

Programs that have been assembled by SFS can be loaded with this 
function. 

a) Place the SPS object deck, including the two clear storage 
cards and the bootstrap card, in the hopper. 

b) Type the reouest word LOAD and press the RELEASE and STaRT keys. 

c) Press READER STaRT, if necessary. 



The CLEAR Function 

The 141 storage can be cleared (set to blanks) with this function. 

a) Type the request word CLEAR and press the RELEaoE and STaRT keys 

b) When the clearing operation is completed the typewriter will 
request the next function. 

The ALTER Function 

Instructions and data, including word marks, in the 141 storage 
can be altered with this function. This may be used for debugging a 
program or entering complete small demonstration programs directly in 
machine language. 

a) Type the request word ALTER and press the RELEASE and START keys 

b) The typewriter will type BEGINNING AT. 

c) Type the three digit 141 location at which the alteration is 
desired and press the RELEASE and START keys. 

d) The typewriter will repeat this location to verify it. 

e) Type the instructions and data in machine language, disregarding 
word marks. This is the only instance where the operator will 
have to use the typewriter shift key. For all other entries 
the typewriter will automatically be in the proper alphabetic 

or numeric shift. At any convenient place, at least one char- 
acter before the end of the line, cease typing and press the 
RELEASE and START keys. 
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f) The typewriter carriage will return for a second line. This 
line will indicate the presence or absence of word marks. If 
the character above requires a word mark type a 1, if it does 
not, strike the space bar. Continue to type l's and spaces 
until the carriage has moved across the entire line above. In 
the first position after completion of the word mark line, type 
a record mark, and then press the RELEASE and STaRT keys. 

g) The typewriter will now type the address of the next storage 
location that will be altered if steps c) and f) are repeated. 

h) When altering is completed press, in order, the RESET, INSERT, 
RELEASE, and START keys. The EXECUTE function can be used to 
start the program. 

The DUMP Function 

When a 141 program is stopped either by a progranmed halt or by an 
error condition, it is desirable to be able to "DTJlil " the Instruction 
Register (I-REG), the Operation Register (CP-REG) and the storage. The 
DUMP function will list the contents of the I-REG, which will be the 
address of the next character to be accessed, the contents of the OP-REG, 
which is the operation code of the last instruction to be executed, and 
the contents of the 141 storage as it stood when the program stopped. 

a) Type the request word DUMP and press the RELEASE and STaRT keys. 

b) When the entire storage is dumped the typewriter will request 
the next function. 



The EXECUTE Function 

Execution of 141 programs can be started with this function. 

a) Type the request word EXECUTE and press the RELEASE and START 
keys. 

b) The typewriter will type BEGINNING AT. 

c) Type the three-digit 141 location of the first instruction 
to be executed and press the RET .RASE and START keys. 

The EXIT Function 

In versions C and D this function returns control to the 1620 
Monitor. 

a) Type the request word EXIT. 

b) Press the RELEASE and START keys. 

Program Switch Options 

a) Program Switch 1 - Turning Program Switch 1 on will cause the 
program to halt at the end of the execution of the current 141 
instruction. The operator may either press STaRT to continue 
with the next 141 instruction or he may press RESET, INSERT, 
RELEASE and START to request a new function. 
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b) Program Switch 2 - When Program Switch 2 is off the DUMP function 
will use the typewriter or printer. When it is on the DUiff function 
will use the card punch. These cards can be listed on an IBM 

407 Accounting Machine. 

c) Program Switch 3 - Cards punched by the DUMP function can be 
reloaded with the LOAD function with Program Switch 3 on. With 
Program Switch 3 off SPS self-loading cards can be loaded. 

d) Program Switch 4 - If Program Switch 4 is on at the time the 
simulator is loaded the typing of the list of functions will 
be omitted. 

Special Notes 

a) Restarting Programs - 141 programs can be stopped, dumped, 
and later restarted by the following procedure: 

1) Stop the program by turning Program Switch 1 on. 

2) Dump the program on cards using the DUMP function with 
Program Switch 2 on. 

3) Later re-load the program using the LOAD function with 
Program Switch 3 on. 

b) Console Lights - When a 141 program is stopped by a program 
halt, an error halt, or by turning on Program Switch 1, the 
operation code of the instruction just completed can be deter- 
mined from the DIGIT AND BRANCH lights on the console. The 
1620 display can be converted to a 141 operation code by using 
the following table: 
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determined by pressing the DISPLAY MAR key with the MEMORY 
ADDRESS REGISTER SELECTOR rotated to the OR-2 position. The 
141 address of the next instruction will be displayed by the 
lights of the MEMORY ADDRESS REGISTER. 
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c) Loading Machine Language Programs - Machine language programs 
can be loaded either by typing them under the control of the 
ALTER function or by key punching them in the Card Dump format 
and loading them using the LOAD function with Program Switch 3 
on. 



Card Dump Format - Cards in this format must be sequentially 
numbered with the odd numbered cards containing the program and 
data characters and the even numbered cards containing the word 
marks . 



comms ODD 

L - 2 Card Number 

4-6 Blank 

9-11 Load address 

20 - 69 Program or Data 



EVEN 
Card Number 

Blank except for last card 
Blank 

l's for word marks 



In an odd numbered card, up to fifty characters to be loaded 
are punched starting in column 20. In columns 9 through 11 is 
punched the address of the location in storage where the char- 
acter in column 20 is to be stored. In columns 20 through 69 
of an even numbered card are punched l's for the word marks 
associated with the characters in columns 20 through 69 of the 
previous card. In columns 4 through 6 of the last card (even 
numbered) is punched the address at which execution is to be- 
gin. 



d) Monitor END OF JOB cards - In versions C and D, * * * * 

END OF JOB cards may be used to facilitate continuous operation. 
In an SPS Assembly, if the last source program deck is followed 
by an END OF JOB card control is automatically returned to the 
1620 Monitor and the next program, such as the 141 Simulator, 
can be called into storage for execution. 

During the execution of a 141 program using the 141 Simulator, 
an END OF JOB card following the data cards will automatically 
cause a return to request a new function. This may be any 141 
Simulator function, including the EXIT function which will return 
control to the 1620 Monitor* 



e) 1443 Carriage Control - In versions B and D, no provisions are 
made for control of the 1443 printer carriage except for an 
automatic detection of a channel 12 punch which will skip the 
paper form to the channel 1 position. 
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TD 


ICTR-2,LAI^EA+34 


00 
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SM 


ICTR, 1, 10 


00 
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TFM 


LDIN,55, 10 


00 
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TF 
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TF 
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PRINT 
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B T f • 1 

TF 

TF 

T F i '. 

TF 

TF 

B 

WATY 
RCTY 

B 

DAG 
D_ML__ 



JEST.SW 

A ADO 

LD I ."■■! + 6 , LD IN + 28 
LD. IN+28, BLANK-6 
LDIN,42, 10 
LD I N+ 12, BLANK-6 
.IDcNT + 16,BL.ANK-6_. 
TESTSW 
LARFA 



TFSTSW+24 
5 



527 
528 
529 
530 
531 
532 



CS2 

BS 

CLDIN 
AST 
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DAC 
DAC 
DAC 
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DAC 
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31, ,0240671056 
20, LOO 1056 1056 , 



a, 
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5 34 
5 35 
5 36 
537 
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CMTMSG 

EN DC 

BRRD 

ZERO 

CMCW 

CR 



DAC 

DC 

DC 

DC 

DC 

DC 



539 
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541 
542 
543 
544 



CW 
CP 

csw 
ccw 

CA 
CS 



DC 
DC 
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DC 



1 
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8 
6 
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6 
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CC 

CH 

CB 

CCS 

CLCA 

CNDP 



DC 
DC 
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DC 
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555 
556 



CDCW 

CDSA 

CDC 

CDS 

CORG 

CCTL 
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DC 
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DC 
DC 
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564 
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CEX 
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S9 
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WA 
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C7 
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SYMBOL TABLE 
141SPS-C 

0VERSW 10843 
LBLERR 03344 
BINACT 08398 
AADD 08680 
AST 10599 
BS 10397 
CCS 10745 
CDCW 10763 
CLCA 10751 
C0RG 10787 
CS1 10073 
C4 10830 
DCTL 05450 
END 05475 
ICTR 04068 
INC 07906 
INL 08002 
INS 07882 
IN4 07786 
LOIN 03971 
MINUS 06964 
0VERR 03776 
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TABLE 07354 
W.A2 10842 
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PASS2 
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ZERO 
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Q.Q.. 001 * - - 141 - SIMULATOR 

00 002 * FOR 1620 - 1311 <f> 

00 00 3 ■ * V 
00 004 * INITIALIZER ROUTINE 
00 005 * 

00 006 BEGIN TR 19998, ASK+41 

00 00 7 ' TF 11, PRELP+U 

.00 008 SF ~ 17982 

00 009 BC4 CLEAR +24 

00 010 RCTY 

00 Oil WATY HEADG 

00 012 RCTY 

00 013 BTM WRT, WORD 

00 014 BTM WRT,WURD+10 

00 015 BTM WRT,.;0RD + 22 

00 016 BTM WRT,V,0RD + 34 

00 017 BTM V.'RT, ..GRD+44 

00 018 BTM WRT,WURD+60 

00 019 B C L EAR+24 

00 020 W R T BC4 CLEAR+24 

00 021 RCTY 

00 022 WATY FUfl.CT, ,2 

00 023 BC4 CLEAR+24 

00 024 WATY -WRT+1 

00 025 AM WRT+30»8Q,10 . 



00 026 BB 

00 027 INITZR RCTY 

00 028 RCTY 

00 029 WATY ASK 

00 030 RATY TESTL 

00 031 SF TESTL- 1 

00 032 C TESTL+6, W0RP+6 '" 

00 033 BE START 

00 034 C TESTL+8,W0RD+18 

00 035 BE CLEAR 

00 036 C TESTL+8,W0RD+30 

00 037 BE ALTER 
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00,038 C TESTL + 6 , W0RD+40 

00 039 BE DSTART 

00 040 C TESTL+12,W0RD+56 

00 041 BE INBRCH 

00 042 C TESTL+6, WORD+66 

00 04 3 BE 796 



00 044 WATY INERR 

00 045 RCTY 

00 046 RCTY 

00 047 B INITZR 

00 048 INBRCH WATY, BGMSG 

00 049 RNTY TESTL-1 



00 050 TD 1 7985 , TESTL- 1 

00 051 TD 17987, TESTL 

00 052 TD 17989, TESTL+1 

00 053 RCTY 

00 054 RCTY 

00 055 SF 17990 

00 056 B B 

00 057 TESTL OAC 10, 
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CARD READER. 



05 8 HEADG DAC 36 3 FUNCT IONS PERFORMED 

BY TYPINGS, 
LOAD PROGRAM FROM 
CLEAR 141 STORAGE 
ALTER STORAGE FROM TYPEWRITER 
DUMP CONTENTS. OF 141 STORAGE 
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060 
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062 
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06 5 
06 6 
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06 9 
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071 
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DAC 
DAC 
DAC 
DAC 
DAC 



18, R-OUEST 
40, 
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40, 
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J3..E G I N 



DAC 40, RETURI 
WORD DAC 5, LOADS), 
DAC 6, CLEAR?;), 
DAC 6, ALTER?), 
DAC 5,00,-ip^, 
DAC 8, EXECUTED, 



EXECUTION 
TO 162 



OF PROGRAM 
M ON I TOR 



DAC 

ASK DAC 
BGMSG DAC 
INERR DAC 



XIT?), 



15, 
24, 



FUNCTION IS ?), 
EGINNING AT 3, 
INVALID REQUEST WORD.?), 



LOADER ROUTI 



077 
078 
079 
08 
081 
08 2 



START 



RCTY 

RCTY 

3C3 

TF 

TF 



08 3 
084 
085 
086 
087 
088 



LDUMP 

18.161 , BLANKS 
18 141, BLANKS 



TF 18121, BLANKS 

TF 18 101, BLANKS 

TF 18081, BLANKS 

TF 18061, BLANKS 

TF 18041, BLANKS 

TF 18021 , BLANKS- 
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00 
00 
00 
00 
00 
00 



089 
090 
091 
092 
093 
094 



RACD 18003 

TFM FTEST+11, 18002 

B NEXT IN 

INSTRUCTION ACCESS ROUTINE 



00 

00 

00 

00 

00 

00. 

00 

00 

00 

00 

00 

00 



095 ME XT IN BNC1 # + 60 

096 BTM CVTREG,0, 10 

097 TF #+35,17983 

098 TF #+18,IREG-l 

099 H 0,0 

100 AM FTEST+11, 2, 10 



101 BT TESTNI , FTEST+11 

102 FTEST BNF #+36,0,7 

103 TF 17984,-FTEST-ll 

104 B TABLE 

105 AM , FTEST+11, 6, 10 

106 BT TESTHI ♦ FTEST+1 1 



I l j I n 1 t r I Co I "H 

17990, -FTEST-11 
#+24,-FTEST-ll 

TABLE 

17983,42, \0 
# + 72 

#+60, 17990 



00 
00 
00 
00 
00 
_Q_P_ 
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109 
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112 



TF 

BNF 
B 

CM 
BNE 
_B_P_ 



00 
00 



113 
114 



TF #+35, FTEST+11 
AM #+23,1,10 
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QQ LL5 _Q_ #+24,0 

00 116 B 3+12 

00 117 A M FTFST + 11,2, 10 

00 118 BT TESTH I , FTES T + 11 

00 119 BNF #+36,-PTEST-ll 

00 120 , TP 17992 ,-FTEST-ll 

00 121 _B 11:5 L,; + 2 8a 

00 122 AM FTEST+11 ,4, 10 

00 123 BT TESTMI , FTEST+11 

00 124 TF 1 7-996, -FTE5T-1! 

00 125 BNF #+24,-FTEST-ll 

00 126 B TA L, Li: + 96 

.0.0.-121 CJ:i 12____23 ilO... _ 

00 128 BE Sii 

00 129 C M 1 7983,21 , 10 

00 130 BE CS-60 

00 131 AM FTEST+11, 2, 10 

00 132 BT TEST] i I , FTES T + 1 1 

00 133 B NF #-24 , -FTES T- 1 1 

00" 134 T F 179 9c , -FT EST- 1 1" 

00 135 B TABLc+288 

00 136 * TEST FOR WRAP-AROUND OFF HIGH END OF CORE. 

00 137 ' OC 5,0' 

00 138 TESTHI CM #-1,20000 

00 139 BiML # + 24 



00 140 BB 

00 141 RCTY 

00 142 WATY HIiuSG 

00 143 RCTY 

00 144 H 

00 145 B D S T A ;'; T 



00 146 HIMSG DAC 47, HI LIMIT OF CORE EXCEEDED. PUSH START TO DUr 
00 14 7 # 

00 148 # TABLE SEARCH FUR OPERATIONAL SUBROUTINE 

00 149 # TABLE ORDER - R , W , P , H , SW , A , S , CS , C W , MC W , C , LC A , B , NOP . 

00 15 * 

00 151 TABLE CM 17983,71, 10 

00 152 BE R 

00 153 CM 17983,72, 10 

00 154 BE W 

00 155 CM 17983,74,10 

00 156 BE P 

00 157 CM 179 83,03, 10 

00 158 BE H 

00 159 CM 17983, 23»10 

00 160 BE SW 

00 161 CM 17983,41,10 

00 162 BE , A 

00 163 CM 17983,62,10 



00 164 BE S 

00 165 CM 17983,21, 10 

00 166 BE CS-84 

00 167 CM 17983,04,10 

00 168 BE CW 

00 169 CM 17983,54,10 



00 170 BE MCW 

00 171 CM 17983,43,10 
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HZ. 

173 

174 

175 

176 

177 

178 



BE C 

Oi 17983,53,10 

BE LCA 

CM 17983,42, 10 

BE B 

CM 17983,55,10 

BE NEXT IN 



179 * INVALID OP CODE ROUTINE 

180 ERROR 1 RCTY 

181 WATY 0P;\SG 

182 RCTY 

183 B CORLIii + 36 

184 OP-MSG DAC 41,1; VALID INSTRUCTION. PUS H START TO DUMP, a, 



185 
186 
187 
188 
189 
190 



* OPERATIONAL SUBROUTINES 

* WRITE SUBROUTINE 

W TFM #+23,18561 
C ZEROES -3 8,0 



191 
192 
193 
194 
195 
196 



RE 



BME RE 

SM W+2 3,2,10 

CM W+2 3,18401 

BNE W+12 

B SECL 

AM W+23,2,10 



00 
00 
00 
00 
00 
00 



197 
198 
199 
200 
201 
202 



SECL 



TD 
TD 

WATY 
TDM 
RCTY 
TD 



#+47,-W-23 
-W-23,400 

18403 
-W-2 3,0 

#+59, 18562 



00 
00 
00 
00 
00 
00 



203 
204 
205 
206 
207 
208 



BV # + 12 

SF 18562 

C 18601, ZEROES 

TDM 18562,0 

BNE # + 3 6 

BV # + 24 



00 
00 
00 
00 
00 
_0_0_ 



209 
210 
211 
212 
213 
214 



B B-24 . 
TD #+47,1860 3 
TD 18603,400 
WATY 18563 
TDM 18603,0 
R CTY 



00,215 B B-24 

00 216 .ZEROES DC 40,0 

00 217 * READ A CARD SUBROUTINE 

00 218 R RACD 18003 

00 219 BNR , B-24, 18003 

00 220 BNR B-24, 18.005 



00 221 B 796 

00 222 * PUNCH A CARD SUBROUTINE 

00 223 P WACD 18203 

00 224 B B-24 

00.225 * HALT SUBROUTINE 

00 226 H BTM • CVTREGtO,10 



00 
00 



227 
228 



TF #+35,17983 
TF. *+18,IREG-l 



cir 



■QQ_??9 H . . 

00 2 30 B B-?4 

00 231 * SET WORD MARK SUBROUTINE 

00 2 32 SW BT.M COMVTA 

00 233 TF *+30, 17989 

00 234 SM *+18, 1 , 10 

00 23 5 ' SF _ I 

.00 236 BNF -+24, 17990 

00 237 B NEXTIN 

00 2 38 B T h) COr'Vib 

00 239 TF *+30, 17995 

00 240 SM *+18, 1 , 10 

00 241 SF . 

00 242 B ME XT I N 

00 243 * CLEAR WORD HARK SUBROUTINE 

00 244 CW BTM COMVTA 

00 245 TF .#+30,17989 

00 246 SM *+18,l, 10 

00 247 CF 

00 24 8 BNF * + 24, 17990 

00 249 B NEXT I N 

00 25 BTM CONVTB 

00 251 TF ^+30,17995 

00 252 SM *+18,l,10 

00 253 CF 0' 



00 254 B NEXT IN 

00 255 * MOVE CHARACTER TO A OR B FIELD WORD MARK SUBROUTINE 

00 25 6 MCW BTM COMVTA 

00 257 TF MOVE+1 1,17989 

00 258 TF MOVE+23,17989 

00 259 SM MQVEH-23, 1,10 ■ ' 

00 26 BTM CONVTB 



00 261 TF MOVE+6, 17995 

00 262 TF MOVE+18, 17995 

00 263 SM MOVE+18, 1, 10 

00 264 BNF MOVE , -MOVE-l 8 

00 265 TDM SFCF+1,2 



00 266 TDM MOVE+25,9 

00 267 MOVE TD 0,0 

00 268 TD 0,0 

00 269 NOP SFCF-12 

00 270 BNF SFCF+24,-M0VE-18 

00 271 TDM SFCF+1,3 



00 272 TDM MOVE+25,1 

00 273 SFCF SF -MOVE-18,0 

00 274 a NEXT IN 

00 275 SM MOVE+6 ,2,10 

00 276 SM , M0VE+11,2»10 

00 277 .SM MOVE+18, 2, 10 



00 278 SM MOVE+23,2, 10 

00 279 CM MOVE+18, 18000 

00 280 BL CORLIM 

00 281 CM MOVE+23, 18000 

00 282 BNL MOVE-36 

00 283 CORLIM* RCTY 



00 284 BNR B-24, 18003 

00 285 B 796 



a 6 



00 286 



WATY CORMSG 



00 

00 
00 
00 
00 

JHL 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



287 

288 
28 9 
290 
291 
29 2 



RCTY 

BTM 

TF 

TF 

H 

3 



CVTREG,0, 10 
# + 35, 17983 
#+18, IREG-1 
0,0 

P STAKT 



293 CORMSG DAC 48,LUH LIMIT OF CORE EXCEEDED. PUSH START TO DUMP.?), 

294 * COMPARE SUBROUTINE 

295 C BTM OX 'VTA 
2 96 BTM CONVTB 

297 C -17995,-17989 

298 BNH #+36 



299 
300 
301 
302 
303 
304 



HIGH 



EQUAL 



SF 

B 

CF 

BNE 
SF 

B 



H I Gi-i 
#+24 
HIGH 

# + 36 
EQUAL 

# + ?4 



00 305 CF EQUAL 
00 306 B NEXT IN 

00 307 # BRANCH SUBROUTINE 
00 308 BNF 8+12,17984 

00 309 B NEXTIJN. 

00 310 B BNF DM OP , 17990 



00 
00 
00 
00 
00 
00 



311 
312 
313 
314 
315 
316 



DMO D 



BTM CONVTA 

TF FTEST+11, 17989 

SM FTEST+11, 1,10 

BNF ERR0R1,-FTEST-11 

B NEXT IN 

BNF BCE, 17992 



00 
00 
00 
00 
00 
00 



317 
318 
319 
320 
321 
322 



SF 17990 

CM 17991,21,10 

BE SLASH 

CM 17991,62,10 

BE SAME 

CM 17991,63,10 



00 
00 
00 
00 
00 
00 



323 
324 
325 
326 
327 
328 



SLASH 



BE TINY 

CM 17991,64,10 

BE UPPER 

B ERROR 1 

BNF B+12, EQUAL 

B NEXT IN 



00 329. SAME BNF NEXTIN, EQUAL 

00 330 B B+12 

00 331 TINY BNF #+24, EQUAL 

00 332 B NEXTIN 

00 333 BNF , B+12, HIGH 

00 3 34 B NE XT I M 

00 335 UPPER BNF #+24, EQUAL 

00 336 B NEXTIN 

00 337 BNF NEXTIN, HIGH 

00 338 B B+12 

00 339 BCE SF 17996 

00 340 BTM CONVTB 



00 
00 



341 

342 



C 17997,-17995 
BE B+12 



CIS 



G 



00 343 a. „__NEXTIN 

00 344 * ADO SUBRQUTII':: 

00 34 5 A TFM A [)U+ 1,2 1,10 

00 346 B *+24 

00 34 7 * SUBTRACT SUBROUTINE 

00 348 S . T F M ADD+1,22,10 

00 3__ , , BTr-i jxWXlA - — 

00 35 BNF *+ 36, 17990 

00 351 TF 17995,17989 

00 35 2 6 *+?4 

00 35 3 BTH COMVTB 

00 354 TFM STRI PA + 6 , F I ELDA-1 

.00 35_._ TF STR I PA+1 1,17.9,8,9 

00 356 TF STRI P-A-f 35, 17989 

00 357 SiM STRIPA+35,1,10 

00 358 TF TSIG..A+11 , STRIPA + 35 

00 359 TFM STR I PB + 6 , F I ELDB- 1 

00 360 TF STR I PB+ 11,1 7995 

00 3 61 TF ' STRI PB+35, 179 95 _ 

00 362 SM STRI PB+35 ,1,10 

00 363 TF TSIG.",B+ll,STRIPR + 35 

00 364 TF SN-?5,STRIPB+35 

00 365 " TF SN+6,STRIPB+35 

00 366 TFM SN+47 , F I ELDB-2 

00 367 TF SIM-6, 17995 

00 36 8 TF SN+42, 17995 

00 369 $M SN+42, 2, 10 ^ 

00 370 TF SM+59, 17995 \j 

00 371 SM SN+59,3, 10 

00 372 TF SN+90,SN+59 

00 373 TSIGNB TP » + 22.,0 

00 374 CM *+9, 5000,8 

00 375 BE STRIPB-12 

00 376 C * + 22, -17995 

00 377 BE STRIPB-12, ,9 

00 378 TDM F I ELDB , 

00 379 B * + 24 

00 380 TDM FIELDS, 0,11 

00 381 STRIPB TD 0,0 

00 382 SM STRIPB+6,1,10 

00 38 3 BNF *+60 

00 384 TF POSCNT, 17995 

00 385 S POSCNT, STR I PB+ 11 ' 

00 ,386 AM POSCNT, 1,10 

00 387 B TSIGNA-12 

00 388 SM STRIPB+11,2,10 

00 389 SM STRIPB+35,2,10 

00 390 CM , STRIPB+6,FIELDB~33 

00 391 BE ERR OR 2 _ : 

00 392 B STRIPB 

00 393 TDM -STRI PB-6, 0, 1 1 

00 394 TSIGNA TD . *+22,0 

00 395 CM *+9, 5000,8 

00 396 BE STRIPA-12 

00 397 C *+22, -17989 



O 



00 398 BE STRI PA-12, ,9 

00 399 TDM FIELD. A ,0 



czo 



00 


400 




B 


#+24 


00 


401 




TDM 


fT F L ' . A , , 1 1 


' 00 


40? 


STRIPA 


TD 


0,0 


00 


403 




SM 


POSCnT ,1,10' 


00 


4 04 




BNF 


*+?<:■ 


00 


405 




B 


A D 0-12 


00 


4 6 


CH 


p n c. r . T , 


00 


407 




BE 


A 1) 11—12 


00 


408 




S h 


S T R 1 P A + 6,1,10 


00 


409 




S M 


C TO T j_) A + i i p ,1 


00 


410 




S M 


S T ' 1 I P A + 3 5 . ? . 1 


00 


411 




B 


S TP I PA. 


00 


412 




SF 


-ST P I P A -6 , 


00 


413 


ADD 


H 


F I •' • L < ! > . F T F 1 DA 


00 


414 




BNF 


*+36,FIELDB 


00 


415 




TDM 


SN+ 11,5 


00 


416 




B 


£ + 24 


00 


417 




TDM 


SN+ 11,7 


00 


418 




BNF 


+24, 


00 


419 




SF 


SN+11 


00 


420 




TD 


, F I E L B - 1 


00 


421 


SN 


TDM 


« 


00 


422 




BNF 


£ + 2 4 * S N + 1 1 


00 


423 




B 


NEXT IN 


00 


424 




TD 


, 


00 


425 




BNF 


£+3 6 , 


00 


4 26 




TDM 


£+30,7,611, INDIRECT 


00 


427 




B 


ME XT IN 


00 


428 




TDM 


0,7 


00 


429 




SM 


SN+42,2,10 


00 


430 




. S M 


SN+47,1,10 


00 


431 




SM 


SM+ 5 9 . 2 , 10 


00 


432 




SM 


SN +9 0,2,10 


00 


4 33 




B 


SN+36 


00 


434 


ERR0R2 


RCTY 




00 


435 




WATY 


AMSG 


00 


436 




RCTY 




00 


4 37 




B 




00 


438 


AMSG 


DAC 


47,B-FIELD OF ADD OR 


00 


439 




DAC 


20, PUSH START TO DUMP 


00 


440 


POSCNT 


DC 


5,0 


00 


441 


F IELDA 


DS 


33, 


00 


442 


FTFI OR 


DS 


34, 



ADDRESS ON £+30 



SUB INSTR OVER 32 POSITIONS 



00 443 £ CLEAR STORAGE SUBROUTINE 

00 444 BNF £+24, 17990 

00 445 B CS 

00 446 BTM CONVTA 

00 447 TF , FTEST+11 , 17989 

00 44 8 SM FTEST+11, 1, 1 

00 449 SF 17990 

00 450 TF 17989,17995 

00 451 CS TFM CS+210, 18000 

00 452 TD CS+248, 17985 

00 453 A CS+208, CS+248 

00 454 A CS + 208, CS + 248 

00 455 TFM CS+234, 18000 

00 456 TD CS+249, 17987 



C2I 



QCLA5..I A CS+233,CS+249 

00 458 A CS+233,CS+249 

00 459 TFM CS + 191 , BLANKS- 1 9 

00 460 TO CS+248, 17989 

00 461 A CS+191 ,CS+248 

00 462 A CS+191, CS+248 

4_6 3 _ TD _ __ C S + 2 4 8__17 987 _ 

00 464 B T M CO.' 1 VTA 

00 465 TF CS+1G6, 17989 

00 466 TF 0,0 

00 467 BD CS+228, CS+248 

00 46 8 CF 0,0 

00 46 9 , B NEXT IN 

00 470 TF 0, BLANKS 

00 471 SM * + S, 1,710 

00 472 SM CS + 234,20, 10 

00 473 B CS+192 

00 474 * LOAD CHARACTERS TO A-F I ELD WORD MARK SUBROUTINE 

00 475 LCA BTM CUNVTA,0 

00 4 76 BTM CONVTB 

00 477 TF -17995,-17989 

00 4 78 B NEXT IN 

00 479 * CONVERT A SUBROUTINE TO CONVERT FROM 141 TO 1620 ADDRESSING 

00 480 DC 5,0 

481 CONVTA TP 17988, 17987 

00 482 TD 17987, 17985 

00 483 TFM 17986,0, 10 

00 484 A 17989, 17989 

00 485 AM 17989,18001 

00 486 BB 

00 487 * CONVERT B SUBROUTINE TO CONVERT FRO-M 141 TO 1620 ADDRESSING 

00 488 DC 5,0 

00 489 CONVTB TD 17994,17993 

00 490 TD 17993,17991 

00 491 TFM 17992,0,10 

00 492 A 17995, 17995 

00 493 AM 17995, 18001 i 

00 494 BB 
00 495 * 

00 496 * CLEAR ROUTINE 

00 497 * . 

00 498 CLEAR RCTY 

00 499 RCTY ; ■ . 

00 500 TFM CLEAR+42, 19999 



00 501 TF 19999, BLANKS, 2 
00 502 SM CLEAR+42, 20, 10 
00 503 CM CLEAR+42, 17999 
00 504 BNE , CLEAR+36 
OQ 505 PRE LP __ INITZR,,0 



00 506 BLANKS DC 21,0 
00 507 * 

00 508 * DUMP ROUTINE 
00 509 * 

00 510 DSTART RCTY 
00 511 RCTY 



00 512 TF OPREG+10, 17983 

00 513 BTM CVTREG,0,10 



C22 



00 


514 




RCTY 






^^%, 


515 




WATY 


TITLE 




%^ 00 


516 




RCTY 






00 


517 




SPTY 






00 


518 




WNTY 


I REG- 3 




00 


519 




WATY 


□ PRE G 




00 


520 




RCTY 






00 


521 




RCTY 






00 


522 




CF 


BLi'KS-49 




00 


523 




CF 


BLNKS-99 




00 


524 




TFM 


CA ! U)i :U,0, 10 




00 


525 




TFM 


A DOR 1,0, 9 




00 


526 




TFM 


ADDR2,49,9 




00 


527 




TFM 


SAVC+11, 18101 




00 


528 




TFM 


INSRn+6, 18101 




00 


529 




TFM 


IN+18, 18101 




00 


530 




TFM 


INSRl; + 2 3, 18 000 




00 


531 


SAVC 


TD 


IN+23,0 




00 


532 


INSRM 


TD 


0,400 




00 


533 




TR 


BANDA + 37,0' 




00 


5 34 




AM 


CARDi\G,01, 10 




00 


535 




TD 


BAND A , CARDNO- 1 




00 


536 




TD 


BAND/, + 2 , C ARDNO 




00 


537 




AM 


CARD; iG, 01, 10 




00 


5 38 




TD 


BANDB , CARDNO-1 




00 


539 




TD 


BANDb+2, CARDNO 




00 


540 




TDM 


BANDA+137,0 




C> 00 


541 




TD 


BAMDA+18, ADDR1-1 




00 


542 




TD 


BANDA+16, ADDR1-2 




00 


543 




TD 


BAMDA+30 , ADDR2-1 




00 


544 




TD 


BANDA + 2 8 , ADDR2-2 




00 


545 




BNC2 


❖ + 4 8 




00 


546 




TDM 


BANDA+ 138,0 




00 


547 




WACD 


BANDA 




00 


548 




B 


PWM 




00 


549 




BNC1 


❖ + 24 




00 


550 




H 






00 


551 


TYPE 


TFM 


* + 2 3 , BAMDA+ 136 




00 


552 




C 


ZEROES-38, 




00 


553 




BNE 


* + 36 




00 


554 




SM 


TYPE+23,2, 10 




00 


555 




B 


TYPE+12 




00 


556 




AM 


TYPE+23,2, 10 




00 


557 




TD 


-TYPE-23,400 




00 


558 




WATY 


BANDA+16 




00 


559 




TDM 


-TYPE-23,0 




00 


560 




RCTY 






00 


561 


PWM 


TF , 


B AN D B + 1 3 8 , B L NK S ■ 




00 


562 




TFM 


TEST5+ll,BANDA+37 




00 


563 




TFM 


TEST5+18, BANDB+38 




00 


564 




• TFM 


INSRM2+6, BANDB+16 




00 


565 


TEST5 


BfMF 


I NCR, 0,27 




4% 00 


566 




TFM 


0,71, 10 




%J 00 


567 




TF 


INSRii2 + 6,*-6 




00 


568 


INCR 


AM 


TEST5+11.2, 10 




00 


569 




AM 


TEST5+18,2 




00 


570 




CM 


TEST5+11,BANQA+137 





C>3 



00 


571 




BM.E 


jr.ES.ii>. • 


00 


572 


WRITE 


BNC2 


*+12u 


00 


573 




CM 


CARD; :G, 40, 10 


00 


574 




BNE 


*+6 


00 


575 




TFM 


BAMDB+9, 70707 


00 


576 




TD 


BA'Di.+ lO, IREG-1 


00 


577 


> 


TD .... 


_B.AjjDb+8,IREG-2 ... 


00 


578 




TD 


BANDS+6, IREG-3 


00 


579 




WACO 


BANDB 


00 


580 




TF 


BANDb+ 10, ZEROES 


00 


581 




B 


*+60 


00 


582 




AH 


INSRj i2 + 6, 2, 10 


00 


583 


INSRM2 


TD 


0,400- 


00 


5 84 




WATY 


BANDD + 16 


00 


585 




RCTY 




00 


586 




BD 


OUT,SWENDD 


00 


587 


IN 


AM 


SAVC+11, 100,9 


00 


588 




TDM 


0,0 


00 


589 




TF 


I NSRH+6, SAVC+11 



00 590 TF IN +16, SAVC+11 

00 591 AM INSRM+23, 100, 9 

00 5 92 AM ADDR1,50,10 

00 593 - AM ADDR2,50,10 

00 594 CM SAVC+11, 20001 

_00 595 BNE SAVC 

00 596 TD 1,400 

00 5 97 TDM SWENDD,1 

00 598 TR BAMDA+37, 19900 

00 599 B INSRM+24 

00 6 00 OUT TDM 1,9 

00 601 TDM SWEMDDtO 



00 602 B INITZR 

00 603 BANDA DAC 50,01 000 - 049 

00 604 DAC 30, 

00 605 BANDB DAC 50,02 

00 606 DAC 30, 

00 607 DC 22,0 



00 6 08 DC 50,0 

00 609 BLNKS DC 50,0 

00 610 SWENDD DC 1,0 

00 611 ADDR1 DC 3,0 

00 612 ADDR2 DC 3,49 

00.613 CARDNO DC 2,0 



00 614 * PRINT REGISTERS SUBROUTINE 
00 615 TITLE DAC 14,1-REG OP-REGa), 



00 616 IREG DC 6, Si, 

00 617 OPREG DAC 7, a, 

00 618 DIV DC 6,0 

00 619 DC '5,0 

00 620 CVTREG TF IREG-1 , FTEST+1 1 

00 621 SM IREG-1, 18000 

00 622 TF DIV-1, IREG-1 

00 623 S DIV, IREG-1 

00 624 S DIV, IREG-1 

00 625 S DIV, IREG-1 

00 626 S DIV, IREG-1 

00 627 S DIV, IREG-1 



C £<f 







00 


628 




TF 


JREG-1 ,DIV-1 


00 


629 




BB 




00 


630 








00 


631 


* ALTER 


ROUNT I ;v'E AND 


00 


632 


* LOAD 


DUMP 


CARDS ROUTINE 


00 


6 33 








00 


634 


ALTER 


l'i A T Y 


BG''SG 


00 


635 




RNTY 


TESTL-1 


00 


6 36 




SF 


TESTL-1 


00 


637 




TF 


FIRST+2,TESTL+1 


00 


638 




TDM 


ALTS ,, , 1 


00 


639 


NEXTL 


RCTY 




00 


640 




RCTY 




00 


64 1 




CF 


F I R S T 


00 


642 




WNTY 


FIRST 


00 


643 




SF 


F I R S T 


00 


644 




RCTY 




00 


64 5 




TFM 


READ1+6, 18001 


00 


646 




A 


READ 1 + 6 , F I RST + 2 


00 " 


64 7 




A 


READ 1 + 6, F 1RST + 2 


00 


648 


RE AD1 


RATY 





00 


649 




RCTY 




00 


650 




RNTY 


WMS+19 


00 


65 1 




TF 


STFLG+6, READ1+6 


00 


652 




SM 


STFLG+6 ,1,10 


00 


65 3 


COMMON 


TFM 


TDIG+11,WMS+19 


00 


654 




TFM 


TR' +1 1 , WMS+19 


00 


655 


TRM 


BNR 


-+24,0 


00 


656 




B 


RM 


00 


65 7 


TDIG 


BD 


#+3 6,0 


00 


658 




TDM 


STFLG+1,3 


00 


659 




B 


# + 2 4 


00 


660 




TDM 


STFLG+1 , 2 


00 


661 


STFLG 


SF 





00 


662 




AM 


STFLG+6, 2, 10 


00 


663 




AM 


TDIG+11, 1,10 


00 


664 




AM 


TRM+11 , 1,10 


00 


66 5 




CM 


TDIG+11, WMS+119 


00 


666 




BNE 


TRM 


00 


667 


RM 


SM 


TDIG+11, WMS+19 


00 


668 




SF 


TD I G+9 


00 


669 




A 


F I RST + 2, TD IG+11 


00 


670 




RD 


ME XTL , ALTSW 


00 


671 




BD 


EXEC , WMS+3 


00 


672 


LDUMP 


SF 


BANDC+16 


00 


673 




RACD 


BAN DC 


00 


674 




TD 


BANDC+13 8,400 


00 


675 




BD , 


#+24, BANDC+19 . 


00 


676 




B 


CDERK 


00 


677 




TD 


F IRST + 2, BANDC + 20 


00 


678 




TD 


FIRST+1 , BANDC+18 


00 


679 




TD 


F IRS T, BANDC+16 


00 


680 




TFM 


TR+6, 18000 


00 


681 




A 


TR+6,FIRST+2 


00 


682 




A 


TR+6,FIRST+2 


00 


683 


TR 


TR 


0,BANDC+37 


00 


684 




RNCD 


WMS 



C 2 5 



on 








WM Q+ AO . 400 


no 


A. PA 




RD 


r n f l i i ■ . w m 9 + 1 f> 


00 


687 




TF 


STFL G+6 , TR + 6 


00 


688 




SF 


WM S 


00 


689 




C M 


WMS+1 , 40 , 10 


00 


690 




BE 


* + 48 


00 


691 




TF 


*+30 , TR+6 


00 


692 




AM 




00 


693 




TDM 


0,0 


00 


694 




TDM 


ALTS:. , 


00 


695 




B 


CGMi-iuN 


00 


696 


EXEC 


TD 


1 79-8£j t WHS + 3 


00 


697 




TD 


1 79 87 , WMS +4 


00 


6 98 




TD 


] 79 89 « NMS + 5 


00 


699 




SF 


17990 


00 


700 




TFM 


1 , 49 , 10 


00 


701 




B 


B 


00 


702 


CDERR 


WATY 


CDMSG 


00 


703 




RCTY 




00 


704 




H 




00 


705 




B 


START 


00 


706 


ALTSW 


DC 


1 ♦ 


00 


707 


CDMSG 


DAC 


38«SEQUENCF Ff 


00 


708 


FIRST 


DSC 


4, 000ft , 


00 


709 


WMS 


DSS 


120 


00 


710 


BANDC 


DAC 


50, 


00 


711 




DAC 


30, 


00 


712 




DEND 


BEGIN 



CZ6 



SYMBOL TABLE 
141SIM-C 



ZEROES 


05501 


TS IGNB 


07338 


TS IGNA 


07590 


TESTHI 


04482 


SWENDD 


10564 


STRIPB 


07434 


STRIPA 


07686 


POSCNT 


08256 


NEXT IN 


03984 


INSRM2 


09882 


INITZR 


02654 


INBRCH 


02906 


F IELDB 


08323 


F IELDA 


08289 


ERR0R2 


08070 


ERROR1 


05008 


DSTART 


09006 


CVTREG 


10634 


CORMSG 


06343 


CORL IM 


06222 


CONVTB 


08816 


CONVTA 


08738 


COMMON 


10982 


CARDNO 


10572 


BLANKS 


09004 


A 


07014 


ADD 


07818 


ADDR1 


10567 


ADDR2 


10570 


ALTER 


10754 


ALTSW 


11618 


AMSG 


08119 


ASK 


03693 


B 


06606 


BANDA 


10123 


BANDB 


10283 


BANDC 


11821 


BCE 


06954 


BEGIN 


02402 


BGMSG 


03739 


BLNKS 


10563 


C 


06438 


CDERR 


11570 


CDMSG 


11621 


CLEAR 


08888 


CS 


08408 


CW 


05766 


DIV 


10627 


DMOD 


06678 


EQUAL 


06534 


EXEC 


11498 


FIRST 


11696 


FTEST 


04068 


FUNCT 


03143 


H 


05574 


HEADG 


03035 


HIGH 


06486 


HIMSG 


04579 


IN 


09930 


I NCR 


09702 


INERR 


03769 


INSRM 


09270 


IREG 


10607 


LCA 


08684 


LOUMP 


11210 


MCW 


05898 


MOVE 


06030 


NEXTL 


10814 


OPMSG 


05057 


OPREG 


10609 


OUT 


10086 


P 


05550 


PRELD 


08972 


PWM 


09618 


R 


05502 


RE 


05222 


READ1 


10922 


RM 


11150 


S 


07038 


SAME 


06834 


SAVC 


09258 


SECL 


05282 


SFCF 


06102 


SLASH 


06810 


SN 


07914 


START 


03816 


STFLG 


11078 


SW 


05634 


TABLE 


04672 


TDIG 


11030 


TESTL 


03015 


TEST5 


09666 


TINY 


06858 


TITLE 


10575 


TR 


11342 


TRM 


11006 


TYPE 


09498 


UPPER 


06906 


W 


05138 


WMS 


11700 


WORD 


03623 


WRITE 


09750. 


WRT 


02570 
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THE 141 DATA PROCESSING SYSTEM 



Description 



The 141 Data Processing System is an abbreviated version of the IBM 1401 Data 
Processing System. It is an internally stored program machine with the following 
features: 

1 . Input : IBM C ard Reader 

2. Output: IBM Card Punch and 100 character per line Printer 

3. Storage: 1000 positions of core storage with three digit numerical 

addresses 

4. Instruction length and date length: Variable. 

Each position is designated by a three digit address in the range of 000 through 999 
and is capable of storing one character: / a letter of the alphabet , a numeric digit or 
a special character such as. , / or U . A group of consecutive storage positions make 
U P a field . Both data and instruction fields are variable in length so that no storage 
space need be wasted with meaningless blanks or zeros. 



Data 



If a field is used fo r data it is referred to by the address of its low -order (rightmost) 
digit position. A special indicator called a word mark is placed in the high -order 
(leftmost) digit position to indicate the length of the field. The machine reads a 
data field from right to left s tarting at the addressed low-order position and con- 
tinuing until a character with a word mark is met. For example, a 5 digit data field 
in storage locations 482 through 486 would have a word mark (indicated by an 
underline) in position 482 and would be addressed by 486. 



Instructions 



4> 



When a field contains an instruction it is addressed by the high-order position 
(left-most position) of the field. This position contains the operation code character 
and a word mark. In addition to the operation code character, an instruction may 
also contain one or two 3 -digit addresses and/or a modifying character. An instruc- 
tion may therefore contain 1,4,5, or 7 characters . The machine reads instructions 
from left to right starting with the addressed high-order position and continuing until 
it meets the word mark in the high-order position of the next instruction. 



Character Coding 



Each position of storage is made up of eight ferromagnetic cores - each of which 
can hold one "yes -or -no" bit. Four bits are needed to represent the digit portion 
of the Hollerith code of the characters; two bits are needed to represent the zone 
portion of the Hollerith code of the characters; one bit is needed to indicate the 
presence or absence of a word mark ; and one bit is used for checking . 

The digit portion is coded in the Binary Code Decimal (BCD) system in which the four 
bits have the values of 1,2,4, and 8 respectively. The sum of the "yes" bits is 
equal to the value of the digit. 



Digit 


8 


4 


2 


1 


1 








X 


2 






X 




3 






X 


X 


4 




X 






5 




X 




X 


6 




X 


X 




7 




X 


X 


X 


8 


X 








9 


X 











X 




X 





(1) 



The digit is represented by the 8 bit and the 2 bit rather than no bits at all. In 
representing alphabetic and special characters the zone is represented by the A and 
the B bits as follows: 

Zon e B A 
12(A-D X X 
11 (J-R) X 
(S-Z) X 
no (0-9) 

The C bit is used for parity checking and is chosen so that the character will contain 
the odd number of "yes" bits. For example the letter C which is given by the 12 and 
3 punches on the IBM is represented in the seven-bit alpha meric code as: 

Seven-bit alphameric code 
Character Card Code C B A 8 4 2 1 
C 12-3 XXX XX 



TABLE I 





Card Code 


Seven-bit Alphameric Code 
C* B A 8 


4 


2 


1 

1 


Blank 


Blank 


X 












• 


12 


-3-8 




X 


X X 




X 


X 


PC 


12 


-4-8 


X 


X 


X X 


X 






& 


12 




X 


X 


X 








- 


11 






X 










/ 


- 


1 


X 




X 






X 




- 


3-8 


X 




X X 




X 


X 


A 


12 


- 1 




X 


X 






X 


B 


12 


- 2 




V 

J\ 


X 




X 




C 


12 


- 3 


X 


X 


X 




X 


X 


D 


12 


- 4 




X 


X 


X 






E 


12 


- 5 


X 


X 


X 


X 




X 


F 


12 


- 6 


X 


X 


X 


X 


X 




G 


12 


- 7 




X 


X 


X 


X 


X 


H 


12 


- 8 




X 


X X 








I 


12 


- 9 


X 


X 


X X 






X 


J 


11 


- 1 


X 


X 








X 


K 


11 


- 2 


X 


X 






X 




L 


11 


- 3 




X 






X 


X 


M 


11 


- 4 


X 


X 




X 






N 


11 


- 5 




X 




X 




X 


O 


11 


- 6 




X 




X 


X 




P 


11 


- 7 


X 


X 




X 


X 


X 


Q 


11 


- 8 


X 


X 


X 








R 


1 1 

x X 






X 


X 






X 


S 


- 


2 


X 




X 




X 




T 


- 


3 






X 




X 


X 


TT 


- 


4 


X 




X 


y 






V 


- 


5> 






X 


X 




X 


w 


- 


6 






X 


X 


X 




X 


- 


7 


X 


v 


X 


X 


X 


X 


Y 


- 


8 


X 




X X 








Z 


- 


9 






X X 






X 










X 




X 




X 




1 


1 














X 


2 


2 












X 




3 


3 




X 








X 


X 


4 


4 










X 






5 


5 




X 






X 




X 


6 


6 




X 






X 


X 




7 


7 










X 


X 


X 


8 


8 








X 








9 


9 




X 




X 






X 



*Check bit to produce odd-parity. Table shows values for positions with no word 
mark. Reverse if word mark is present. 



(3) 



Operation Codes 



SW Set Word Mark , aaa 

The Set Word Mark instruction causes a word mark to be set at the A-address. 
Data at this address is undisturbed. 

CW Clear Word Mark # aaa 

The Clear Word Mark instruction causes the word mark at the A-address to be 
cleared. Data at the A-address is not disturbed. 



MCW Move Characters to A or B Word Mark instruction causes the data in the A- 
fieid to be moved t o the B-field. The first word mark encountered stops the 
operation. The data at the A-address is unaffected by the move operation. 
Word Marks in both fields are undisturbed. 



R Read a Card JL_ 

The Read a Card instruction causes the information in columns 1 through 80 
of an IBM card to be read into storage locations 001 through 080 respectively. 
The Hollerith code of each column is converted into six - bit alphameric code 
as it is read into its position of core storage, according to Table 1. Word 
marks are undisturbed . The C check bit of each position is automatically set 
to produce an odd parity. 

P Punch a Card 4 

The Punch a Card instruction causes the information in storage 101 through 
180 to be punched into columns 1 through 80, respectively, of an IBM card. 
The six-bit alphameric code is converted into Hollerith code according to 
Table 1, The information is location 101 through 180, including word marks, 
is undisturbed. 

W Write a Line JL 

The Write a Line instruction causes the information in storage locations of 201 
through 300 to print in the one hundred print positions of one line on the 
printer. The information in storage, including word marks, is undisturbed. 
The printer takes one automatic space after printing a line. 

A Add JLaaa bb b 

The add instruction causes the data in the A-field to be added algebraically 
to the data in the B-field, The result is stored in the B-field. The defining 
word mark of the B-field stops the operation. If the A-field is shorter than 
the B-field, a word mark in the A-field will stop the transmission of data 
from the A-field, but any resulting carries will be added to the contents of 
the B-field until the word mark in the B-field is met. 



S Subtract jS_ aaa bbb 

The subtract instruction causes the data in the A-field to be subtracted 
algebraically from the data in the B-field. Word marks control the operation 
in the same manner as in the Add operation. 

C Compare C aaa bbb 

The Compare instruction causes the information in fields A and B to be 
compared character to character. The six-bit configuration of each character 
in the two fields is compared. Word marks and check bits do not enter into 
the comparison . If two corresponding characters are not the same , the 
Unequal Compare Indicator is turned on; in addition, either the B Field High 
or B Field Low Indicators would be turned on according to the results of the 
comparison. Each of these indicators may be tested by a Branch if Indicator 
On instruction. The indicators are not turned off until the next Compare 
instruction. If all indicators are off after a Compare instruction has been 
executed, an equal condition may also be tested by a Branch if Indicator 
On instruction. (4) 



The first word mark encountered stops the operation. If the A-field is longer 
than the B-field, extra A-field positions beyond the length of the B-field will 
not be compared. If the B-field is no longer than the A-field, an unequal 
compare results and the Unequal and B-Field High Indicators are turned on. 

B Branch B iii 

The Branch instruction causes the program to branch to the instruction 
specified by the I-address . 

B Branch if Indicator On B iii d 

In the Branch If Indicator On instruction the d-character specifies the 
indicator tested. If the indicator is on the next instruction is taken from the 
I-address. If the indicator is off, the next sequential instruction is taken, 

Indicator d-C haracter 



Unequal Compare 


(B^A) 


1 


■j. 

7~ 


Equal Compare 


(B=A) 


S 


Same 


Low Compare 


(B<A) 


T 


Top 


High Compare 


(B>A) 


U 


Upper 



H Halt 

The Halt instruction causes the program to start with the next instruction in 
sequence. 
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SECTION 2 



141 Sym bolic Programm i ng System 

The Symbolic Programming System , SPS , has been developed to facilitate logical , 
efficient programming with a minumum of actual coding effort. It almost completely 
relieves the programmer of the task of assigning actual storagd location to the 
instructions and data of the program and allows hirn to refer to them by easy-to- 
remember names of his choice . 

Instructions 

Instructions written in SPS contain a Label, an operation code , an A-Operand , a 
B-operand, and a d-character . Any of the parts except the operation code may be 
left blank. 

The Label is the symbolic representation of the location in memory that the instruc- 
tion will be stored. It may have from one to six alphameric characters , the first 
of w hich must be alphabetic and must be placed in column 8 of the coding sheet. 
The Label may be left blank if no reference is made to the instruction in the rest 
of the program . 

The Operation Code may be either Mnemonic or the Machine -language code. 
Mnemonic c odes are used from one to three characters starting in column 14. 
If the machine -language code is used, it must be placed in column 16. 

If the instruction requires an A-Operand it is written in column 17 through 26. If 
no A-Operand is used, those columns may be left blank. The address of an operand 
may be expressed symbolically or actually. If it is written symbolically, it takes 
the same form as a Label. If it is written as an actual location, it must be a 
four-digit n umber with leading zeros where necessary. Although four digits are 
written on the coding sheet, only three characters will be used in memory. 

Adjusted Address 

The address of an operand may be adjusted by placing the number of characters of 
adjustment in columns 24 through 26 and the sign of the adjustment must be in 
column 23. Leading zeros may be omittedbut the units digit of the adjustment must 
be in column 26. 

The indexing character (column 27) is not used with the 141. 

If the instruction requires a B-Operand, its address is written in the same manner 
as the A-Operand. When an instruction requires a d-character, the actual machine 
code is placed in column 39. 

DCW - Define Constant with Word Mark 

The symbolic operation code DCW causes a constant to be loaded into the area 
specified and sets a word mark in the high-order position of the field. The nu mber 
of characters in the constant field is placed in the Count portion of the coding 
sheet (columns 6 and 7) . The symbolic label by which the constant is referred is 
placed in columns 8-13. The code DCW is placed in columns 14-16. Columns 
ir-20 must contain the actual location of the units position of the field, or an 
asterisk must be placed in column 17 to indicate the SPS program is to choose the 
location of the field. The constant itself begins in column 24 and may extend 
through column 55, a maximum of 32 characters. If the constant is to be signed 
numeric constant, the sign may be placed in column 23. 
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End 



The special symbols END placed in columns 14-15 of the coding sheet signifies to 
teStt^mto* it is the last line of the program. In the A-operand field of 
MsnL'must be 'placed either the symbolic or actual $^<Meteste™^ 
instruction of the program. The additional purpose of the END card is to proviae a 
branch to the beginning of the object program at the end 01 the loading. 



SECTION 3 
Exercises 



Exercise 1 

Write a program that will reproduce a card, that is , will read a card and punch a 
card identical to the one read. 

Exercise 2 

Write a program that will read a card and punch a card with the information from 
^umnsTTo of the card read in columns 41-80 of the <^W^°g*^~ 
mation from columns 41-80 of the card read in columns 1-40 of the card puncnea. 

Exercise 3 

Write a program that will reproduce an entire deck of cards . 
Exercise 4 

Write a program that will read one card and will punch copy after copy of it until 
the machine is stopped by the operator. 

Exercise 5 

Write a program that will print a directory of telephone extensions from a deck of 
personnel cards . The cards and directory forms are as follows: 

Card Columns Field P rint Positions 



1-18 Name 



1 - 18 



19 First Initial 20 

20 Second Initial 22 
21-60 Not used in this program 

61-64 Telephone Extension 28-31 

65 - 80 Not used in this program 

Exercise 6 

Write a program that will read cards containing numeric fields A, . Bjj ° 

punch corresponding cards that contain fields A, B, C, and D, where D - A + B C. 

The card columns are as follows: 

Field Card Columns Card 

a y-TI Input and Output 

n 7-11 Input and Output 

q 12-14 Input and Output 

D 75 - 80 Output only 



Assume that no overflows will occur. (7) 



Exercise 7 



Write a program that will check the sequence of employee numbers found in columns 
75 - 80 of a deck of cards. The program should stop the machine if it finds any 
employee number that is not larger than the one in the previous card. 

Exercise 8 

Write a program that will punch consecutive numbers 001 through 015 in columns 
78 -80 of the first 15 blank cards in the punch hopper and stop automatically before 
punching a sixteenth card. 

Exercise 9 

Write a program that will calculate and punch D, where D = A + B - C. Provide for 
decimal alignment, rounding (half-adjustment) , and overflow. The card columns and 
decimal form of each field is as follows: 



Input Card 

A Col. 5-8 XXX. X 

B 9-12 XX. XX 

C 13-14 XX. 

Output Card 

D Col. 7-10 XXXX. 



Exercise 10 

Write a program that will up-date a customer's charge account after a new purchase 
has been recorded. A new balance card is to be punched and a listing of each 
customer's name, new balance, and limit is to be printed. If the new balance 
exceeds the customer's limit the words OVER LIMIT are also to be printed on his 
entry. The card columns and print positions are as follows: 



Field Input Card Output Card Listin g 

Name 1-20 1-20 11-30 

Balance 21-30 21-30 35-44 

Charge 31-40 

Limit 71-80 71-80 49-58 

OVER LIMIT — — 63-72 



SECTION 6 
141 Simulator Operating Procedures 

Adjust the Typewriter 

a) Set left margin at 10 

b) Set right margin at 94 

c) Set a tab stop at 65 (clearing any other tab) 
Set Console Switches 

a) Set parity switch to STOP 

b) Set I/O switch to STOP 

c) Set O'Flow switch to PROGRAM 

d) Program switches #1 and #2 will normally be OFF. Uses of these switches 
will be explained later. Program Switches #3 and #4 are not used. 
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Load Simulator 



a) Place 141 Simulator deck in the hopper in the 9~ed^e face-down position. 

b) With the machine in Manual press the Load button 1 . 

c) When the simulator is loaded the typewriter will automatically begin typing. 
It may be necessary to press the Reader Start button to enter the last two 
cards . 

Select the Desired Function 

a) The typewriter will type a list of the five functions that the simulator 
will perform and the five request words that will initiate these functions. 

FUNCTIONS PERFORMED REQUEST BY TYPING 

LOAD PROGRAM FROM CARD READER LOAD 
CLEAR 141 MEMORY CLEAR 
ALTER MEMORY FROM TYPEWRITER ALTER 
DUMP CONTENTS OF 141 MEMORY DUMP 
BEGIN EXECUTION OF PROGRAM EXECUTE 

b) The typewriter will type the words REQUESTED FUNCTION IS and then stop. 

c) The operator then types the word LOAD, CLEAR, ALTER, DUMP or EXECUTE 
and presses the RELEASE and START buttons on the console or the RS key 
on the typewriter. 

d) If a function runs to completion the simulator will automatically request 
the next function. If the function is interrupted by pressing INSTANT STOP 
the operator may return to the request statement by pressing, in order, the 
RESET, INSERT, RELEASE / and START buttons on the console. 

The LOAD function 

Programs that have been assembled by SPS can be loaded with this function. 

a) Place the SPS object deck, including the two clear storage cards and the 
bootstrap card, in the hopper. 

b) Type the request word LOAD and pressthe RELEASE and START buttons . 

c) Press READER START, if necessary. 

d) When the program is loaded the typewriter will type PROGRAM LOADED. 
PUSH START TO EXECUTE. 

e) Press the START button on the console to begin execution of the program. 

The CLEAR function 

The 141 memory can be cleared (set to blanks) with this function. 

a) Type- the request word CLEAR. 

b) Press the RELEASE and START buttons 

c) When the clearing operation is completed the typewriter will request the 
next function. 



1. Clearing the 1620 memory before loading is unnecessary, since a clear routine 
is built into the simulator deck. 
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The ALTER function 

Instruction and data, including word marks, in the 141 memory can be altered 
with this function. This may be used for debugging a program or entering 
complete small demonstration programs directly in machine language. 

a) Type the request word ALTER. 

b) Press the RELEASE and START buttons. 

c) The typewriter will type BEGINNING AT. 

d) Type the three digit 141 location at which the alteration is desired (such 
as 333). 

e) The typewriter will repeat this location to verify it. 

f) Type the instructions and data in machine language , disregarding word 

marks , 2 

g) At any convenient place , at least one character before the end of the 
typewriter line, cease typing and press the RELEASE and START buttons. 

h) The typewriter carriage will return for a second line. This line will 
indicate the presence or absence of word marks. If the character above 
requires a word mark type a 1 , if it should not have a word mark hit the 
space bar. Continue to type l's and spaces until the carriage has moved 
across the entire line above. In the first character after the line type 

a record mark ^ , then press the RELEASE and START buttons. 

i) The typewriter will now type the address of the next memory location to be 

altered if the process (f thru i) is continued, 
j) When altering is completed press, in order, the RESET, INSERT, RELEASE 
and START buttons. The EXECUTE function can be used to start the program. 

SECTION 7 

141 - SPS Assembler Operating Procedures 

Adjust the typewriter 

a) Set left margin at 10 

b) Set right margin at 94 

Set Console Switches 

a) Set parity switch to STOP 

b) Set I/O switch to STOP 

c) Set O'Flow switch to Program 

d) Program Switch #2 will normally be off. Program switches 1,3, and 4 are 
not used. 

Assemble SPS Programs 

a) Place the 141 - SPS ASSEMBLER deck in the reader hopper in the 9-edge 
face down position. 

b) Place the SPS source program decks in the reader hopper. Any number of 
programs may be "stacked" for assembly. The last card of each deck must 
be an END statement. ~ 

c) With the machine in MANUAL press the LOAD button . 

d) Press the PUNCH START button. 

e) It will be necessary to press the READER START button to enter the last 
two cards of the last deck. 



2. This is the only instance where the operator will have to use the typewriter shift 

key. For all other entires the typewriter will automatically be in the proper 
alphabetic or numeric shift. 

3. Clearing the 1620 memory before loading is unnecessary, since a clear routine 

is built into the assembler deck. 
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6402250MSP 



Use of Program Switch #2 

If Program Switch #2 is turned ON the typing of the program listing will be 
eliminated. A program listing can be obtained by listing the object deck on 
the IBM 407 . This alternative will greatly reduce the assembly time. 

SECTION 8 

Listing Panel for IBM 407 

An IBM 407 Accounting Machine control panel for use with the 141 is diagrammed on 
the following pages. Three separate functions have been wired into the board , the 
choice of which is under the control of Alteration Switches #1 and #3 , as follows: 

TRANSFERRED ALTERATION 
FUNCTION SWITCHES 



80 - 80 List 1 
DUMP List 1 , 3 

SPS Post List None 

In each case, single spacing occurs with Alteration Switch #2 normal and double 
spacing occurs with it transferred. 

The 80-80 list option is useful for printing the results of 141 programs that have 
been punched on cards. Since the punch is very much faster than the simulated 
printer, teachers with large classes of students will wish them to use punched 
card output in preference to printer output whenever possible. 

The DUMP list option is designed to list the cards that result from dumping the 141 
memory with Program Switch #1 on. This is another way of increasing the efficiency 
of operations. 

The SPS list option will list the output cards from an SPS assembly. Both the high- 
order and low-order addresses of each instruction are printed. The clear and boot- 
strap cards may be left on the deck but they will not print. 

If more than one SPS program is to be listed the END card will cause a skip to channel 
1 between programs . 

The required 407 machine configuration is: 

Ten pilot selectors 
Eight co-selectors 
One digit selector 
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IBM CARD CODING 



The IBM card provides 80 vertical columns with twelve punching positions in each 
column. One or more punches in a single column represents a character. A group 
of columns used for the characters that make up a quantity, or a name, is called a 
field and is often indicated on the card by printed vertical lines. 

The standard IBM card code, often referred to as the Hollerith code, uses the twelve 
possible punching positions of a vertical column on the card to represent a numeric, 
alphabetic or special character. The twelve punching positions are divided into 
two groups: digits and zones. The first ten punching positions from the bottom 
edge of the card are the digit punching positions and have assigned numeric values 
of 9, 8, 7, 6, 5, 4, 3, 2, 1 and 0, respectively. The first three punching positions 
from the top of the card are the zone punching positions and have zone values of 
12, 11 and 0, respectively. The position is considered to be both a digit and a 
zone position. 

The numeric characters through 9 are represented by a single punch in a column. 
For example, 5 is represented by a single punch in the 5 position of the column. 

Alphabetic characters are represented by two punches in a single column: one digit 
punch and one zone punch. The alphabetic characters A through I use the 12 zone 
punch and a digit punch 1 through 9 respectively; J through R use the 11 zone punch 
and a digit punch 1 through 9 respectively; and S through Z use the zone punch and 
a digit punch 2 through 9 respectively. 

Special characters are represented by one, two, or three punches in a single column 
in combinations that are not used for either numeric or alphabetic characters . 

For example: '26May' would be represented as follows: 





ZONES fj 





DIGITS 

14 

a 

The 12 and 11 zone punches when used by themselves have several different mean- 
ings depending upon their usage in the specific problem. They may represent an 
and sign (&) and a hyphen (-) , respectively, when used in an alphabetic field. 
They may also represent a plus (+) sign and a minus (-) , respectively, when used 
as the algebraic sign of a numeric field. In this case they are usually punched in 
the same column as the units position digit. Still another use of these punches, 
especially the 11 punch, is that of a control punch to signify that a particular card 
is an exception of some kind. When used this way the 11 punch is usually referred 
to as an X punch and is placed in some pre-as signed column. 
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The following is a table of the IBM card code for numeric and alphabetic characters . 







JMO 


1 o 


1 1 


U 




U 


U 








D 


n 

1 


1 


ft 

A 


J 




T 

I 


o 


Z 


B 


■XT 

K 


s 


G 


o 
o 


o 
o 


c 


T 

L 


T 


T 
1 


A 

4 


4 


D 


T\ It 

M 


TT 

U 


m 
X 


r 



p 



E 


TVT 

N 


V 




6 


6 


F 


O 


w 




7 


7 


G 


P 


X 




8 


8 


H 


Q 


Y 




9 


9 


I 


R 


Z 



Number Systems 

Almost all components used in building a ditital computer are best used as bi-state 
elements; that is , devices that have two and only two distinct conditions . Examples 
of this are: a switch that is either open or closed, a light that is either on or off, a 
punch position in an IBM card that is either punched or not, a vacuum tube that is 
conducting or cut off, a relay that is transferred or normal, and a magnetic core that 
has polarity of N-S or S-N. The use of bi-state elements encourages the use of a 
number system that has on ly two digits instead of the usual ten. These digits would 
be 0, usually corresponding to the off status of an element, and 1, corresponding to 
its on status. Such a number system is known as the binary system. It is probably 
easiest to understand a new number system by comparing it to the familiar decimal 
system. 

There are three essential parts to any system. The first is the base of the system. 
In the decimal system the base is 10; in the binary system it is 2. The second 
essential part is a set of symbols or digits. In base 10 these digits are 0, 1, 2, 3, 
4,5,6,7,8, and 9. In base 2 these symbols, often called bits (a contraction of 
binary and digits) are and 1. Note that the number of digits in a system is equal 
to the base number and ranges from 9 to one less than the base number. The third 
essential part is place value. That is, the value of any digit depends upon its 
position within the number. Starting at the decimal point (or binary point) and 
proceeding to the left, the place values are always 1, the base, the base squared, 
the base cubed, etc. In base ten the place values are 1, 10, 100, 1000, etc. In 
base two they are 2, 2, 4, 8, etc. 

The meaning of a number comes from combining these essential parts of its number 
system. Therefore, the number 5280 in the decimal system means 

5280 = 5 X 1000 + 2 X 100 + 8 X 10 -1- X 1 
while the number 1101 in the binary system means 

11019 = 1X8+1X4+0X2+1X1 
or decimally i3. In the binary system, this reduces to the simple rule that "the 
value of a binary number is equal to the sum of the place values containing l's". 
In the above case 1101 2 = 8+ 4+1 = 13 
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The decimal equivalent of the first 17 binary integers is as follows: 



Decimal 



Binary 

1 



Decimal 



Binary 
1000 
1001 
1010 
1011 
1100 
1101 
1110 
1111 

10000 




1 
2 
3 
4 
5 
6 
7 



10 
11 
100 
101 
110 
111 



8 

9 

10 
11 
12 
13 
14 
15 
16 



RESTRICTIONS 



The following restrictions pertain to the 141 S irnulator program 

1. The twelve executable instructions are: SW, CW, MOW, R, P,W,A, S,C, B, 
Bi, and H. The Branch if Indicator On instruction includes four d-modifiers: /. 



2. One thousand positions of 141 memory are available/ with addresses ranging 
from 000 to 999. 

3 . All i nstructions must be followed by a word mark. 

4. No overflow arithmetic is provided. Carries out of the high-order of the B-field 
will be lost. They will not become zone bits. 

5. In arithmetic operations zones are stripped from all B-field characters including 
the high-order character. 

The following restrictions pertain to the 141 Assembly program. 

1. Only the above-mentioned twelve operation codes and four d-modifiers can be 
assembled. 

2. The DCW is the only declarative operation and END is the only processor 
operation recognized by the assembly program. All programs will automatically 
begin at location 333. 

3. The maximum number of cards in any 141 SPS program is 100. Images of these 
are held in memory to reduce the amount of card handling and to permit stacking 
of programs , 



S, T, U. 
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Problem #1 

Calculate and punch C where C = A + B 
A, B and C are all 5 column fields 



Input 
Card 



Output 
Card 



/ 


A 




B 






/ 


A 




B 

! 


. ■ 


c 





Input Cards 3 
Output cards 3 



Problem No. 2 

Calculate and punch D where D = A + B - C 
A is a 5 column field 
B is a 5 " 
C is a 6 



Input 
Card 



( 
















A 


J 


B 




c 





Output 
Card 



/ 



B 



D 
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Problem Mo. 3 



Calculate and punch E where , E=A+B+C-D 
Input: 

Output: 



Golumn 4-o 


A 


XX • XXX 


y-iz 


B 


X • XXX 


13-14 


C 


X.X 


15-17 


D 


, .XXX 


Column 4-8 


A 


XX • XXX 


9-12 


B 


x.xxx 


13-14 


C 


X.X 


15-17 


D 


.XXX 


21-24 


E 


XX « XX 



Note: The program must be written so that E is rounded off to two decimal places. 



Input cards .... 5 
Output cards ... 5 

Problem No. 4 



A program is to be written that will up-date a customer's balance, and compare it 
to his credit limit. 



l-i 



Input 
Card 



8-14 16-21 



55-80 



^Credit 
Limit 



Old 


Order 


Bal. 


Amt. 



Customer 
Name 



If the sum of the old balance card and the order amount are equal to or less than 
the credit limit, an up-dated card is to be punched as follows: 



1-6 8-14 55-80 



Output 


/ 






i 


Card 


"Credit 


New 




Customer 




Limit 


Bal. 




Name 



If the sum of the old balance and the order amount exceed the credit limit, a 
printed output for the credit manager follows . He , in turn , will send a letter to 
the customer. 



Printed 
Output 



1-15 



17-41 



Input cards 10 

Output cards 10 

Printed output. ... .2 lines 



45-50 52-58 



Send 


Customer 


Credit 


New 




Letter to 


Name 


Limit 


Bal. 
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